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SUMMARY 


This report considers the problem of modeling continuous atmospheric 
turbulence for the purposes of aircraft design. The discussion is limited 
to the representation of turbulence by three stationary, independent sto- 
chastic' processes which are physically interpreted as the longitudinal, 
lateral, and vertical gust components at the vehicle center of gravity. 

The gaussian model now in wide use is reviewed. A comparison of this 
model with experimental data shows that it underestimates the number of 
high velocity gusts which occur in the atmosphere. Furthermore, it cannot 
reproduce observed velocity increment distributions. 

A class of non-gaussian processes is proposed as a turbulence model. 
Though previous publications have described the application of this model 
to flight simulator work, this report analyzes the model in greater detail, 
and is the first publication to apply it to analytical calculations. A 
comparison with experimental turbulence data is presented, and it is con- 
cluded that the non-gaussian model is superior to the gaussian model for 
the purposes of representing high velocity gusts. However, in the form 
presented, the new model does not improve upon the gaussian model in so 
far as the modeling of velocity increments is concerned. 

The problem of applying the non-gaussian model to the calculation of 
vehicle response statistics is investigated. The specific statistics of 
interest in this report are the response power spectral density, probabil- 
ity distribution, and level crossing frequency. The first of these is 
easily handled by well known methods. The calculation of the second and 
third quantities, however, requires the development of an eigenfunction - 
eigenvalue expansion technique. A numerical example is presented and a 
number of computer programs useful for studying the model are included. 



INTRODUCTION 


The effects of atmospheric turbulence have been a continuing concern 
to the aircraft designer since the earliest days of powered flight. 

Typical turbulence related problems which must be solved during the design 
of any aircraft are: 

1) determination of ultimate structural strength required 
to sustain peak loads induced by turbulence 

2) effects of turbulence on the fatigue life of the structure 

3) performance of control systems in turbulence 

4) handling and ride qualities in turbulence. 

In an effort to provide the designer with some practical means of 
solving these and other problems, a number of statistical models of tur- 
bulence have been developed over the years. These models attempt to 
describe, in terms of as few parameters as possible, those characteristics 
of turbulence which are most important for various aspects of the design 
problem. Several of the most widely used of these models will be described 
below. In general they fall into two complementary classes, discrete and 
continuous, both of which are in use at the present time. 

Discrete Models 

Historically, the discrete model of turbulence was the first to be 
developed beginning with the work of Rhode and Lundquist in 1931 (Ref. 1). 
This model was intended to describe only the extreme gusts encountered by 
an aircraft over its operational lifetime. Because of its emphasis on 
extreme gusts, the discrete model is typically used to estimate ultimate 
strength requirements. As its name implies, the discrete model treats 
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turbulence as a series of isolated gusts, The principal assumptions used 
in deriving the discrete model are (Ref, 2, 3): 

1) For purposes of aircraft design, atmospheric turbulence 
can be modeled as a collection of isolated gusts randomly 
distributed along the flight path of the aircraft. 

2) These gusts have random magnitudes but fixed shape. 

3) The aircraft is a deterministic linear system with suf- 
ficient damping that each encounter with one of these 
discrete gusts results in a single significant response 
peak. 

Typical responses which may be studied by means of the discrete 
model are peak structural loads imposed by turbulence, extreme vertical 
accelerations of the aircraft, etc. Two discrete gust shapes which have 
been employed in the past are a ramp 30.48 meters (100 feet) in length 
used in the United Kingdom (Ref. 4) and a one-minus-cosine shape used in 
the United States (Ref. 5). 

Since the gust shape is fixed and the vehicle is assumed to respond 
in a well damped linear manner, the relationship between gust magnitude 
and the peak value of response for a given aircraft is simply a constant 
of proportionality depending upon the flight condition (i.e,, airspeed, 
gross weight, altitude, etc.) at the time of gust encounter. Thus, by 
recording response peaks and corresponding flight conditions, one can com- 
pute the magnitude of the discrete gust which caused each peak. These 
magnitudes, known as "equivalent gust velocities," have been extensively 
measured for various types of aircraft based on recordings of vertical 
accelerations by counting accelerometers. Statistics on the frequency 
of their occurrence have been compiled by many authors (e.g.. Ref. 6). 
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The discrete model can be used to predict the responses of a proposed 
aircraft design by the following method (Ref. 7). First, using the exper- 
imentally determined distribution of equivalent gust velocities and the 
dynamic characteristics of the proposed vehicle, work backward through the 
procedure described above to obtain the distribution of vertical acceler- 
ations for the vehicle. Then assume a factor of proportionality relating 
these accelerations to the response magnitude, and finally convert the 
distribution of accelerations into the required response distribution. 

Even though much data is available on the distribution of equivalent 
gusts, the discrete model is not satisfactory for all aspects of the air- 
craft design problem. For example, its application in areas such as struc- 
tural fatigue, control system performance, ride qualities, or even extreme 
responses which involve lightly damped modes is highly questionable. The 
reason for this is that the assumptions on which the model is based are 
seldom realized in practice. In most instances turbulence does not occur 
as discrete gusts but as a continuous random disturbance. Furthermore, 
the conversion from measured responses to equivalent gust velocities 
neglects most of the dynamic characteristics of the vehicle, particularly 
the structural modes which tend to be lightly damped. As a result, success 
in calculating the response statistics of a proposed aircraft by means of 
the discrete gust model depends largely upon the proposed aircraft having 
very nearly the same response characteristics as the vehicle with which the 
original data were collected. Although this fortuitous circumstance may 
exist in some cases, it cannot always be assumed. Thus, although the 
necessity of evaluating the responses of a proposed aircraft to discrete 
gusts is still recognized as an important part of the design procedure 
(Ref. 8), the use of the discrete model to calculate most response 
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statistics has largely given way in recent years to the use of turbulence 
models which attempt to take both the dynamic characteristics of the 
vehicle and the continuous nature of turbulence into consideration. 

These are known as "power spectral density," "power spectral," or (per- 
haps more correctly) "continuous" models. It is this type of model which 
is of primary interest in the present report. 

Continuous or Power Spectral Models 

As will be seen shortly, the underlying idea of this type of model 
is that atmospheric turbulence can be represented by a continuous stochas- 
tic process which acts as a disturbing influence on the vehicle. The 
name "power spectral" has frequently been associated with these models 
because their development originated from studies of the power spectral 
density of atmospheric turbulence (Ref. 9). In actuality, these models 
involve not only the power spectral density of turbulence, but also an 
assumed probabilistic structure which is consistent with the power spectrum. 
Hence, to call them "power spectral" models is to stress one aspect and 
neglect the other. Thus, although long usage has firmly established the 
name "power spectral" (and indeed the name will often be used in this 
report), the reader should be aware that power spectral models incorporate 
not only a power spectrum but also a probability structure, 

Because a turbulence model will be of little value to aircraft design 
if it cannot be used to predict vehicle responses, the type of stochastic 
process employed in the model must be one for which it is possible to 
calculate these responses with a minimum of difficulty. Because of this 
constraint, it is usually assumed that turbulence can be represented by 
a gaussian process. In this report, continuous models which incorporate 
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this assumption will be referred to as continuous gaussian models or 
gaussian power spectral models. 

Gaussian Power Spectral Models 

As mentioned above, power spectral models represent turbulence as a 
continuous disturbance. The aircraft is imagined to fly through large 
regions of turbulent air. (The adjective "large" is used here to mean 
that the time required for the aircraft to pass through one of these 
regions is very much greater than the response time constants of the 
vehicle.) It is usually assumed that within each region the turbulence 
is homogeneous and stationary, and is characterized by intensity and 
scale length parameters. More formally stated, the principal assumptions 
made in applying this type of model in its most simple form are (Refs. 

3, 10): 

1) Each encounter of an aircraft with conti nous atmospheric 
turbulence can be modeled as a deterministic linear sys- 
tem (the aircraft) perturbed by three independent, sta- 
tionary stochastic processes. These processes represent 
the longitudinal, lateral, and vertical gust components 
occuring at the vehicle center of gravity as it moves 
through the gust field. 

2) The power spectral density of each random process belongs 
to a family of spectral shapes characterized by two param- 
eters, the gust velocity standard deviation (a) and the 
gust scale length (l). The scale length is a determin- 
istic function of altitude and the standard deviation 

is a random variable which changes for each encounter of 


I 
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the aircraft with a turbulent region of air. Within 
each turbulent region a is assumed constant. Both L 
and a may take on different values for each of the three 
gust components. 

3) Each of the three gust components is a gaussian process. 

The assumptions of the gaussian model make it possible to calculate 
the statistics of any vehicle response for each region of turbulence as 
functions of the parameters L and 0 of that region. The statistical 
quantities of most frequent interest are: 

1) Power spectral density — a description of the magnitude 
of the Fourier components present in the response. 

2) Probability distribution — a description of the prob- 
ability that a given response magnitude is exceeded. 

3) Level crossing frequency — the expected number of times 
per unit distance of flight that a given level or response 
magnitude is exceeded. 

Specific methods by which these quantities can be calculated will be dis- 
cussed in a later part of this report; for the present it will merely 
be noted that the assumptions of vehicle linearity and the gaussian nature 
of turbulence permit their evaluation with a minimum of difficulty. These 
results will, as noted above, be dependent upon the assumed values of L 
and 0 along with the characteristics of the vehicle dynamics. Another way 
to express this dependence is to say that the response statistics are 
"conditioned" on these parameters. Note that under the assumptions of the 
model only one of these parameters, 0 , is random. 

The response statistics which are to be expected over the lifetime 
of the vehicle for a given flight condition (i.e. , fixed altitude and 
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vehicle dynamics) can be computed by means of the gaussian power spectral 
model if the distribution of the random variable o is known. Distributions 
of a have been estimated based on extensive measurements of atmospheric 
turbulence. However, these distributions are not usually known for all 
altitudes of interest. Also, data presented in reference 11 shows that 
the scale length of turbulence is actually a random variable even at a 
fixed altitude; and the importance of neglecting this effect is not known. 
Furthermore, as will be discussed in later sections of this report, there 
is much evidence that atmospheric turbulence is not a gaussian process. 

As a result, the gaussian power spectral model is not entirely suitable 
for calculating lifetime statistics in a purely formal probabilistic man- 
ner. The procedures used for this purpose typically combine many of the 
ideas of the gaussian power spectral model with the response statistics 
of existing aircraft in a method not unlike that used with the discrete 
model (e.g. , Ref. 12). 

The power spectral model is used primarily to evaluate response 
statistics for selected flight conditions in continuous turbulence. For 
this application both the scale length and standard deviation of the 
turbulence as well as the vehicle characteristics are fixed at values 
representative of flight conditions which could reasonably be expected to 
occur in service. Thus the aircraft is imagined to be flying through an 
infinitely large region of stationary, homogeneous turbulence. The 
response statistics calculated for this case are then examined to deter- 
mine whether or not the design is satisfactory. This approach is espec- 
ially useful for control, handling, and ride qualities studies; and is the 
type of application for which the turbulence model developed in this report 


is intended. 
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For this restricted usage, sufficient data are available to develop 
a much more realistic model, and the three assumptions made above bear 
reconsideration. The first assumption stated that atmospheric turbulence 
could be represented by three independent, stationary stochastic processes. 
Physically, this is equivalent to requiring that: 1) the turbulence is 

stationary and homogeneous; and 2) the dimensions of the vehicle are 
much smaller than the scale lengths of the three gust components. These 
two conditions are, of course, not always satisfied and much research has 
been devoted to relaxing them. References 13 through 16, for example, 
describe how the power spectral model can be extended to account for such 
effects as the spatial distribution of the gust velocity field over the 
surface of the aircraft, correlation of the gust components, and the non- 
stationarity of the turbulence. Generalizations of this type will not 
be considered in this report because of the increased complication they 
would introduce. The reader should, however, be aware that such improve- 
ments are possible. For the simplified model described in this report the 
first assumption of the gaussian power spectral model will be considered 
valid. 

The second assumption of the power spectral model concerned the 
specification of a family of power spectral densities for each gust com- 
ponent which depended upon only two parameters, L and a. This assumption 
has been investigated at low altitude (Ref. 11) and found to be valid if 
both L and a could be chosen freely for each sample. Representative values 
of the scale lengths to be used in the model can be expressed as a deter- 
ministic function of altitude by simply selecting the mean L measured at 
each altitude. The power spectral shapes usually assumed are those 


i 4 



10 


proposed by von Karman (Ref. 17) or Dyrden (Ref, 18). Thus at low 
altitudes it is possible to satisfy the second assumption. 

At high altitudes the validity of this assumption is not so certain, 
the problem being made more difficult by a lack of data. Those results 

“ 5 / 3 

available (e,g.. Refs, 19, 20) show that spectra often behave like ft 
over the full range of wavelengths measured, (ft denotes spatial frequency 
in radians per meter.) This would indicate that scale lengths are either 
very long or nonexistant at these altitudes. In practice this difficulty 
might be overcome while retaining the validity of the second assumption 
by using the von Karman or Dryden spectra and merely choosing a value of 
L longer than the longest wavelength to which the vehicle in question will 
respond. The standard deviation could be selected so that the power 
spectral density is properly scaled in the range of wavelengths to which 
the vehicle does respond. 

The second assumption of the power spectral model is thus valid at 
low altitudes, but becomes more questionable as altitude increases. The 
lack of a scale length at high altitudes may perhaps be overcome by choos- 
ing a very long scale length as described above, or the treatment of high 
altitude turbulence as a self-similar process in the manner to be des- 
cribed below may be another solution. 

The third assumption of the power spectral model, that turbulence is 
a gaussian process, is known to be incorrect (Refs. 21, 22), Since this 
fact is of central interest in this report, it will be discussed in some 
detai 1 , 

The non-gaussian nature of atmospheric turbulence makes itself 
apparent in two ways which are of importance to aircraft design. Compared 
to a gaussian process, turbulence is characterized by: 
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1) an increased number of high velocity gusts 

2) an increased number of large gust velocity increments. 

These two effects will be discussed separately even though they are 
obviously somewhat related. 

High gust velocities are of importance to aircraft because it is this 
type of disturbance which tends to produce significant rigid body motions 
of the vehicle. These large gusts displace the vehicle from its equilib- 
rium flight path, disconcerting the passengers and requiring the pilot to 
take corrective control action. As mentioned above, experimental data 
indicates that the gaussian turbulence model significantly underestimates 
the frequency of occurrence of these high gust velocities. 

Reference 23 reports the examination of a large number of turbulence 
samples, each recorded at low altitude over a flight path distance of 
approximately 37 kilometers. The average number of velocity peaks in 
each sample was found to be 495, while the magnitude of the highest peak 
in each sample was consistently found to be greater than five times the 
standard deviation of the sample. This frequency of occurrence of such 
high gust velocities is several orders of magnitude greater than predicted 
by the gaussian assumption. Furthermore, peak gust velocity cumulative 
probabilities of exceedance observed in atmospheric turbulence (Refs. 11, 

24) behave like exp( -x) rather than exp( -x 2 ) as predicted by the gaussian 
assumption. This again indicates a serious underestimation of high velocity 
gusts by the gaussian model. 

The second non-gauss i an characteristic of atmospheric turbulence which 
is important to aircraft design is the occurrence of a greater number of 
large gust increments than predicted by the gaussian model. The increment 
of a process u(t) is defined to be a running difference of the form 
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u[t) - {t- t), where t is the constant time lag of the increment. 

Increments of u[t) are necessarily gaussian if u itself is gaussian. 

f 

Note that a large increment' is not necessarily associated with high 
values of u(t), only large changes of value. Large velocity increments, 
especially with short time lags, are of importance in causing loads on 
the aircraft structure because they contain high frequency components 
which tend to excite the elastic modes of the vehicle while having a 
minimal effect on its gross motions. Published evidence (Refs. 22, 25, 
26) indicates that the gaussian model underestimates these large incre- 
ments. 

Gaussian Patch Model 

The data described above which indicate that atmospheric turbulence 
is non-gaussian are typically composed of time histories recorded over 
a flight path distance of more than 30 or 40 kilometers. The apparently 
non-gaussian characteristics of these data which have been discussed 
above are sometimes explained within the framework of stationary gaussian 
processes by introducing a slightly modified form of the gaussian 
power spectral model known as the "quasi gaussian" or "gaussian patch" 
model (Ref. 21). The central idea of this model is that long, apparently 
non-gaussian samples of turbulence can be divided into a number of 
shorter gaussian segments with different intensities. The assumptions 
on which this model is based are the same as those of the conventional 
gaussian model described above, except that now each encounter of the 
aircraft with a large region of turbulence is imagined to be a number of 
encounters with smaller, independent patches of stationary, homogeneous 
turbulence. Though these patches are smaller than the turbulent region 
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which they make up, they are nevertheless still assumed to be large in 
the sense that the vehicle response can be assumed stationary within each 
patch, and transient effects between patches can be neglected. The 
scale length of the turbulence in all patches is assumed to be the same, 
but the intensity is allowed to vary randomly from patch to patch. This 
random intensity is usually restricted to only two discrete values (Ref. 
27), although more values can be admitted if required. 

Because of the above mentioned assumptions, the order in which the 
vehicle encounters patches of differing intensities is immaterial, and 
all nonstationary effects can be neglected insofar as vehicle responses 
are concerned. Thus the response of an aircraft flying through a large 
region of turbulence is assumed divisible into a number of shorter, 
independent time histories, each of which is stationary and gaussian. 

The intensity of each of these shorter response time histories corres- 
ponds to one of the two discrete values of turbulence intensity which are 
allowed. 

Under the assumptions of the gaussian patch model, measurements of 
the gust velocity and response standard deviations based on time averages 
over very large turbulent regions are invalid because the assumption 
of stationarity (and therefore ergodicity) is incorrect for time histories 
involving more than a single patch. For example, the turbulence intensity 
estimated by time averaging would be a weighted average of the true inten- 
sities which were encountered. Given that the patch model is correct, it 
is possible to estimate the true patch intensities by a simple curve fit- 
ting technique based on measured level crossing frequencies (Ref, 27). 

The important result of assuming the gaussian patch model to be 
correct is that probability distributions and level crossing frequencies 
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measured in large (30 km or larger) regions of turbulence will not 
appear gauss ian because they will be based on samples from gauss i an 
processes with differing intensities. If the gaussian patch model could 
be shown to correctly explain the non-gaussian characteristics of atmos- 
pheric turbulence it would greatly simplify the aircraft design problem 
because the conventional gaussian model described previously could still 
be used to model encounters with single patches of turbulence, and 
encounters with multiple patches could be described in terms of ensembles 
of stationary, independent gaussian processes. Thus the gaussian patch 
model would allow the apparently non-gaussian characteristics of atmos- 
pheric turbulence to be modeled without recourse to a non-gaussian turbu- 
lence model. Furthermore, responses of vehicles to the model could be 
expressed as collections of stationary gaussian processes and would 
therefore not require a nonstationary analysis. 

Unfortunately, evidence indicates that the assumptions of the patch 
model are incorrect. Reference 27, for example, has examined the patch 
length implied by this model, and concluded that the most intense patches 
are only two or three kilometers in length. Because these patches are 
so short, the assumption of stationary vehicle responses becomes very 
questionable. This problem will be discussed in greater detail in a 
later section of this report. 

It will also be shown later in this report that, if the assumptions 
of either the gaussian or the gaussian patch models are correct, then the 
standardized density function of the turbulence increments must be iden- 
tical to that of the turbulence itself and independent of the time lag 
(at least for small time lags). However, references 22, 25, and 26 
present data obtained at altitudes from sea level to 18,000 meters 
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(60,000 feet) showing that this is not the case, particularly at low 
altitudes. Thus it appears that neither the gaussian model nor the 
gaussian patch model can account for the frequent occurrence of large 
velocity increments in atmospheric turbulence. 

To summarize the above comnents, it appears that the first assump- 
tion of the gaussian power spectral model, regarding the representation 
of turbulence as a three component stochastic process, has been heavily 
researched and many improvements have been made. These possible improve- 
ments will not be considered in this report because of the increased com- 
plication they would introduce. The second assumption, regarding the 
use of a family of power spectral densities dependent only on the vari- 
ables L and a appears to be valid at low altitudes and can very probably 
be used at high altitudes for the purposes of modeling flight through 
turbulence. The third assumption, concerning the representation of 
atmospheric turbulence as a gaussian process, is not correct; and 
attempts to remedy the situation by introduction of the gaussian patch 
model do not appear to be justified. 

Thus research on the subject of a non»gaussian turbulence model is 
a promising area in which to make a significant improvement in aircraft 
design procedures. The remainder of this report will concentrate on 
this aspect of turbulence modeling. 

Associated Current Research 

The only other current work in this area to the author's knowledge 
is that due to Jones (Refs. 3, 28) who is developing a model of turbu- 
lence based on the concept of turbulence as a self-similar process in 
the sense of Mandelbrot (Refs. 29, 30, 31). A process u{t) is self-similar 
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if it has the property that transformations of the form u(ht) (for any 
value of h and some fixed value of k) do not change its statistical 
properties. 

Two important implications of self-similarity from the standpoint of 
turbulence modeling are: 

1) a self-similar process has an intermittent structure. 

2) the power spectral density of a self-similar process must 

—V ' ’ i 1 

behave like ft for all ft, where v is related to the con- 
stant k of the self-similar transformation. 

The first of these is an observed characteristic of atmospheric tur- 
bulence (e.g.. Ref. 32) and is a very desirable property of a turbulence 
model. The second characteristic is not true of low altitude turbulence 
but, as described above, is easier to justify at high altitudes where 
measurements of power spectra have indicated just such behavior. 

In reference 28, Jones has suggested a discrete model of turbu- 
lence which employs both random magnitudes and random lengths of the 
assumed gust shape. These two variables are related so that the level 
crossing frequency exhibits a distribution of the form exp(-x)v(c , 
which is reasonably consistant with observed level crossing data. This 
discrete model is proposed as a means of investigating the well-damped 
modes of the vehicle response. 

Jones also discusses the possibility of a power spectral model of 
atmospheric turbulence which utilizes the idea of self-similarity. This 
model is essentially the gaussian patch model discussed above, but the 
self-similarity assumption is used to derive a relationship between 
patch length and patch intensity such that the extreme gust velocities of 
the model exhibit a level crossing frequency of the form exp( -x)/Jx. 
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Again this form is consistent with observed data. Jones proposes the 
self-similar power spectral model as a means of investigating lightly 
damped modes of the aircraft response. 

The Non-Gaussian Model 

The turbulence model proposed in this report, unlike that of Jones, 
will consider all modes of the aircraft response simultaneously, and 
will apply to turbulence with finite scale lengths. The principal pur- 
pose is to provide a non-gaussian turbulence model for use in represent- 
ing typical encounters of aircraft with continuous atmospheric turbulence. 

The research reported here is an extension of that published in 
references 33 and 34, which have described the development and applica- 
tion of a "patchy" non-gaussian turbulence model for use in flight simu- 
lators. The contribution of the present report is the further analysis 
of this model and the development of analytical techniques for applying 
it to vehicle response studies. 

Since the present problem is more difficult than that discussed 
in references 33 and 34, the model treated in this report has been 
simplified to consider only the three gust components acting at the 
vehicle center of gravity. Reference 34 indicates at least one technique 
which can be used to expand this model so as to include the effects of 
gusts distributed over the surface of the vehicle. 

The non-gaussian model proposed here differs from the gaussian 
power spectral model described previously in that it assumes atmospheric 
turbulence to be modeled by a certain class of stochastic processes 
which are, in general, non-gaussian. Since this class contains gaussian 
processes as a subclass, it follows that the proposed model is not 
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entirely distinct from the gaussian model, but can be viewed as a 
generalization which includes the gaussian model as a special case. 
(The name "non-gaussian" applied to this model is perhaps too general 
since the model is restricted to only a subclass of all non-gaussian 
processes. However, this name is conveniently short; and within this 
report there is no danger of confusion.) 

The principal assumptions of the non-gaussian model as it is des- 
cribed here are (compare with those of the gaussian model above): 

1) Each encounter of an aircraft with continuous atmospheric 
turbulence can be modeled as a deterministic linear system 
(the aircraft) perturbed by three independent, statistically 
stationary stochastic processes. These processes represent 
the longitudinal, lateral, and vertical gust components at 
the vehicle center of gravity as it moves through the gust 
field. 

2) The power spectral density of each random process belongs 
to a family of spectral shapes characterized by two param- 
eters, the gust velocity standard deviation (o), and the 
gust scale length (l). The scale length is a deterministic 
function of altitude and a is a random variable which changes 
for each encounter of the aircraft with a turbulent region 

of air. Within each turbulence region a is assumed constant. 
Both L and a may take on different values for* each of the 
three gust components. 

3) Each of the three gust components is a non-gaussian process 
of the form u(t) = a(t) b{t) + c{t) , where a, b, and c are 
independent, stationary gaussian processes. 
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The probability structure of the proposed model is implicit in the 

third assumption. 

Outline of Report 

The remainder of this work is divided into eight sections and an 

appendix. The principal topics treated in each section are: 

Review of the Gaussian Model. Equations describing the gaussian power 
spectral model and its applications to vehicle response calculations 
are reviewed. This section also defines several statistical quan- 
tities which are used throughout the remainder of the report. 

Validity of the Gaussian Model. This section shows that the assumption 
of a gaussian process is inconsistent with measured turbulence data. 

Formulation of the Non-gaussian Model. The general ideas leading to the 
non-gaussian model proposed in this report are presented. 

Analysis of the Non-gaussian Model. The specific form of the turbulence 
model is developed along with expressions for the power spectral 
density, probability distribution, and level crossing frequency 
of the model. The increment distribution of the model is also dis- 
cussed. 

Validity of the Non-Gaussian Model. This section presents probability 
distributions and level crossing statistics obtained for various 
low altitude flight conditions, and compares these with statistics 
predicted by the gaussian and non-gaussian models. 
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Calculation of Non-Gaussian Response Statistics. Methods for calculating 
the power spectral density, distribution function, and level cross- 
ing frequencies of aircraft responses to the non-gaussian turbulence 
model are developed. 

Numerical Example. An example is presented showing the calculation of 
power spectral density, distribution function, and level crossing 
frequencies of the altitude error allowed by a simple autopilot. 

Conclusions and Suggestions for Further Research. A brief summary of 
results is presented along with descriptions of a number of areas 
in which additional research is needed if the model described here 
is to become a useful tool for aircraft design. 

Appendix A: Computer Programs, Listings and sample cases are presented 

for a number of computer programs used in working with the non- 
gaussian turbulence model. 

Appendix B: Tabulated Functions. Tabulated values of the probability 

density, probability distribution, and level crossing frequency 
of the non-gaussian model are presented. 



REVIEW OF THE GAUSSIAN MODEL 


The gaussian model considered in this section is intended to repre- 
sent large regions of homogeneous and stationary turbulence. The three 
principal assumptions on which it is based are: 

1) Each encounter of the aircraft with continuous atmospheric 
turbulence can be modeled as a deterministic linear sys- 
tem (the aircraft) perturbed by three independent station- 
ary stochastic process. These processes represent the 
longitudinal, lateral, and vertical gust components at 
the vehicle center of gravity as it moves through the 
gust field. 

2) The power spectral density of each random process belongs 
to a family of spectral shapes characterized by two param- 
eters, the gust velocity standard deviation (a) and the 
gust scale length [L ) . The scale length is a determin- 
istic function of altitude and the standard deviation is 

a random variable which changes from encounter to encounter. 

3) Each of the three gust components is a gaussian process. 

Also, the statistical quantities of major interest to aircraft design are 

1) power spectral density 

2) probability distribution 

3) level crossing frequency. 

The purpose of this section is to familiarize the reader with the defini- 
tions and notation of this report as well as to acquaint him with the 
turbulence model which is now in wide use. The following discussion will 
show how the statistical quantities listed above may be calculated first 
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for the gaussian model itself and then for the response of a linear sys- 
tem to the model. In addition, a result concerning the distribution of 
gust velocity increments and a simply physical interpretation of the 
model will be presented. 

Power Spectral Density of the Turbulence Model 

Two forms of power spectral densities are presently in common use, 
those proposed by von Karman (Ref. 17) and those by Dryden (Ref. 18). 
These spectra are compared in figure 1 below. The von Karman spectra 
(Eqs. 1, 2, and 3) are known to provide a more accurate representation 

_ 5 / 3 

of measured turbulence spectra because they properly model the Q 
behavior observed at high frequencies (Refs. 11, 35). However, the 
fractional exponents present mathematical difficulties which are avoided 
by use of the Dryden spectra (Eqs. 4, 5, and 6). The Dryden spectra will 
be assumed in this report. 



Figure 1. — Comparison of von Karman and Dryden power 
spectral densities. The Dryden spectra are assumed 
in this report. 
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The reader should be aware that these are "two sided" spectra 
defined for both positive and negative values of ft. The standard dev- 
iation of each gust component is given by an expression of the form 


a 2 = | $(ft) 


dft 


(7) 
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Probability Distribution of the Gust Velocity 

The model discussed here is gaussian by definition, thus each compo- 
nent has a conditional probability density function of the form 

pU[cr) = ■■■- , exp[ - j-(f) 2 !. (8) 

a(2i) /2 * a 

The notation (*|a) is used here to indicate the dependence or "condition- 
ing" 'Of the density function upon a. In general, the a in equation 8 
corresponds to the o’s appearing in equations 4 through 6 above, and is 
different for each gust component. Figure 2-a below shows a graph of this 
density function for positive valaes of x. 

An equivalent description of the gust velocity probability distribu- 
tion is given by the distribution function. The distribution function is 
related to the density function by integration. 


P(*|a) 


x 
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Figure 2-b shows the gaussian distribution function plotted on a probabil- 
ity scale. Note that it is a straight line on this scale. 



b) distribution 
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Figure 2. --Probabi 1 i ty density and distribution functions 
of the gaussian turbulence model. 
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It will be of interest later to determine the distribution which 
would be obtained by combining data from a number of samples of the 
gaussian turbulence model. Note that the density function, equation 8, 
depends only on the standard deviation of the gust velocity. Thus, if 
the probability distribution of a is known, the average or unconditional 
density function of the gust velocity can be found by integration 

oo 

p(x) = | p{x\y) p a {y) dy . (10) 

o 

It should be noted that p(x) is not a gaussian density. 

In order to conform to conventional usage, the gust velocity distri- 
bution function for a number of data samples will be expressed as a com- 
plementary distribution of the absolute value of the gust velocity 

x 

P a (x) - 1 - | p(y) dy. (11 ) 

-x 

I^(x) is the probability that the absolute value of the gust velocity is 
greater than x, and will be referred to as the cumulative gust velocity 
distribution in this report. The reader should be aware that P° decreases 
monotonical ly even though the term "cumulative" is used to describe it. 

Level Crossing Frequency of the Gust Velocity 

The level crossing frequency of a gaussian process is given by the 
well known result due to Rice (Ref. 36). Rice's equation (divided by 2 U 
to give the expected number of crossings with positive slope per unit 
distance of flight) applied to the longitudinal gust component gives the 
following expression for the conditional level crossing frequency. 
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The quantity in this equation denotes the standard deviation Of the 
first derivative of the w-gust time history, and u is the mean true air- 
speed of the aircraft. Similar equations apply to the lateral and ver- 
tical components of the model. 

A problem arises in the application of equation 12 to the turbulence 
model described here because a ^ does not exist for a process with the 
Dryden power spectral density (Eq. 4), nor will the analogous standard 
deviations exist for the other components of the model. The reason for 
this is clear when the relationship between a ^ and the power spectral den 
sity of u is considered. The theory of continuous stochastic processes 
(Ref. 37) requires that 

oo 

a u ’ j “ 2 V n) da ■ 03) 

0 

But the u-gust spectrum (and for that matter the lateral and vertical 

_ 2 

gust spectra) behaves like ft for large values of fl. Therefore, the 
integral in equation 13 does not converge and a ^ does not exist. This 
result stems from the fact that the model has not accounted for viscous 
dissipation, which causes the true power spectrum of turbulence to decay 
more rapidly for wavelengths shorter than about one centimeter. These 
extremely short wavelengths are of no importance when vehicle responses 
are being calculated, and are justifiably neglected when the model is 
used for this purpose. However, in the next section of this report it 
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will be of interest to compare the level crossings of the model to those 
measured experimentally, and it is important to show that a level cross- 
ing frequency can be defined for the model without altering its character- 
istics as far as response calculations are concerned. 

In practice this problem is sometimes overcome by truncating the 
power spectral densities at some convenient frequency. Another method is 
the addition of high frequency poles to the spectral forms as shown in 
equation 14 for the w-gust spectrum. 
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These poles can be physically interpreted as representing the effects of 
viscous dissipation, and y^ can be thought of as representing the wave- 
length at which this dissipation becomes important. As will be seen 
shortly, however, the precise value chosen for y^ will not be important 
for the purposes of this report. 

Using equation 14 for allows one to compute the standard devia- 
tions required in Rice's equation. In particular, 

a- = Uo (y L ) " 1/2 (15) 
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Substitution of this result into equation 12 gives the following result 
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Note that the zero crossing frequency is given by 
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N (0|a 3 L , y ) = (2 tt) ' 1 (Y L ) ~ 1/2 (17) 

Thus the value of Y y may be thought of as determining the zero crossing 
frequency of the u-gust component, and could be chosen so as to match 
equation 17 to some measured value. 

The addition of high frequency poles to the vertical and lateral gust 
spectra in a manner similar to that of equation 14 will result in level 
crossing frequencies which differ from equation 16 by only a constant of 
proportionality. 

N v {x\a ,£ ,Y) = 2V u (ic|a , L , Y) = (3/2) 1/2 N u {x\o , L , Y) (18) 

Figure 3 shows a typical graph of level crossing frequencies for the 
gauss i an model. 



Figure 3. — Normalized level crossing frequency 
of the gaussian turbulence model. 

It will be of interest later in this report to compute the level 
crossing frequencies which would be obtained by combining data from a 
large number of turbulence encounters. These theoretical results can 
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then be compared with experimentally measured data to determine the 
validity of the gaussian model. In past analyses of this type (e.g.. 
Ref. 23) it is conmon to assume that the zero crossing frequency is 
constant for all data samples. That is, 

N (0) = N (Olcr >L , y ) (19) 

for all values of o^ , , and y u • Thus the level crossing frequency 

for a large number of data samples is 


N (x) - N (0) 
u u 


exp[ - Jr( |) 2 ] p a (a) do . 
{ u 



These level crossing curves are typically normalized with respect to 
( 0) in order to obtain what is termed the normalized level crossing 
frequency or, perhaps more commonly, the cumulative probability of 
exceedance. 
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Note that this result depends only upon the density function of . 
Equation 21 was obtained from equation 16 by assuming that 
(0|* , • , •) was a constant for all data samples. However, it is 
readily verified (and will be proved later in this report, Eq. Ill, 112) 
that precisely the same conclusion will be reached if it is only required 

that a be a random variable independent of both L and o . In this 

u u u 

event acts only as a scale factor of the process and can have no 
influence on the frequency with which it changes sign. Thus V°i* ’• ••) 
need not be a constant, but only a random variable independent of a . 
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Expressions completely analogous to equation 21 can be obtained for 
the vertical and lateral gust components. Note that these results 
depend only upon the standard deviation of the gusts. In particular, 
the value of y has no effect on the normalized level crossing frequency. 

Distribution of Velocity Increments 

Consider now the velocity increments of the gaussian turbulence model. 
Since identical results will be obtained for all three components, only 
the longitudinal gusts will be considered here. Define the u-gust incre- 
ment to be 

A u (t) - u(t) - u(t-T) (22) 

Since A^ is a linear transformation of a gaussian process, it must be 
gaussian. The mean and variance are readily calculated from equation 22. 

27{A m > = 0 (23) 

- 2 K- c «u M ' (24) 

where C is the autocorrelation function of u. Thus the probability 
density of A^ is given by 

PA (a? l a A } = -rAr/2 exp[ - » (25 ^ 

a A (2ir) A 

and the average density of A^ computed from a number of samples of the 
gaussian model with differing intensities would be 
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A relationship will now be derived relating the average density of 


A to the average density of u itself. First write a. in the form 
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Introduce the change of variable = a/a(x), substitute equations 27 and 
29 into equation 26, and compare the resulting expression with equation 
10 to obtain 


^A ^ a(x) ^ a(x) ^ 

Now define the standardized density function to be 

p{x) = ap[ax) 


(30) 


(31) 


and note that the average standard deviation of A^ is related to the 
average standard deviation of o u by 

= a(x ) E{o^} . (32) 

It then follows from equations 30, 31, and 32 that 
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P A (aO = P u ( x ) • (33) 

Equation 33 implies that the standardized density function of is 
identical to that of u itself, and this result is independent of both 
the time lag t and the distribution of a . 

Power Spectral Density of Vehicle Response 
The power spectral density of some response r{t) of a stable linear 
vehicle to a single component of the gaussian turbulence model is given 
by the well known relationship (Ref. 38) written here for the longitud- 
inal gust component in terms of the spatial frequency ft. 

$ rr (ft) = \H(iUV )\ 2 $ wu (ft) (34) 

where #(s) is the transfer function relation the response r(t) to the 
input u{t) . Similar expressions hold for the other components of the 
turbulence model. 

Probability Distribution of Vehicle Response 

A linear response to a gaussian input is necessarily gaussian, thus 
the density function of any vehicle response r[t) is given by 

=— 77T7T exp[ 'f(f )2 l < 35 > 

a (2tt) r 

v ' 

where cr^ is obtained from the power spectral density, equation 34, in 
a manner similar to equation 7. The distribution function of the response 
is given by an expression analogous to equation 9. 
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Level Crossing Frequency of the Vehicle Response 

Since the vehicle response is necessarily gaussian, the level cross- 
ing frequency must be given by equation 12. In the case of a stable air- 
craft, the parameter y introduced in the above discussion of the gust 
velocity level crossings need not be used because the vehicle will act as 
a low pass filter and the derivative of the response will always exist. 
The level crossing frequency of a vehicle response p{t) to the w-gust 
component of the turbulence model is thus given by 
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(36) 


here and a ^ are determined from the power spectral density of the 
response (Eq. 34) by means of equations 7 and 13 respectively. Entirely 
analogous relationships hold for the lateral and vertical components of 
the model . 

Physical Interpretation of the Gaussian Model 

Each component of the gaussian turbulence model can be interpreted 
as wide band gaussian white noise passed through a linear filter as shown 
in figure 4. 



gaussian filter 


white noise 
source 

Figure 4. — Physical interpretation of a single component 
of the gaussian turbulence model and the response 
of a vehicle to this model. 
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The white noise source is assumed to generate gaussian noise with a 
power spectral density of unity over the range of frequencies passed 
by the shaping filter and the vehicle transfer function. That is, 

® nn («) = 1-0 (37) 

The shaping filter transfer function is determined by means of equation 
34 and the required turbulence power spectral densities discussed at 
the beginning of this section (Eqs. 4, 5, or 6). 



VALIDITY OF THE GAUSSIAN MODEL 


The gaussian turbulence model described in the previous section will 
now be compared with some experimentally measured gust statistics. It 
will be shown that neither the gaussian nor the gaussian patch turbulence 
model is able to reproduce these statistics. 

Specific results to be presented are: 

1) comparison of the gaussian probability distribution with 
gust velocity distributions estimated from single time 
histories of atmospheric turbulence 

2) comparison of gust velocity distributions predicted by 
the gaussian model with distributions estimated from a 
large number of independent time histories 

3) comparison of cumulative probability of exceedance dis- 
tributions predicted by the gaussian model with distri- 
butions estimated from a large number of independent data 
samples 

4) discussion of patch sizes implied by the gaussian patch 
model 

5) comparison of measured velocity increment probability 
distributions with distributions predicted by the 
gaussian patch model. 

Gust Velocity Distributions Estimated from Single Samples 

Figure 5, originally published by Dutton (Ref. 21), presents esti- 
mated gust velocity distributions from two independent sources. In each 
case the gaussian distribution is indicated by a solid line. The curves 
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Figure 5. --Comparison of the gaussian turbulence model 
with gust velocity distributions estimated from single 
turbulence time histories. 


on the left show three samples of the vertical gust component measured by 
G. K. Mather of the Canadian National Aeronautical Establishment (Ref. 39). 
These data were obtained at an altitude of approximately 9,000 meters 
(30,000 feet) over the Sierra Nevada mountains. The graphs on the right 
of figure 5 are from a single sample of severe turbulence encountered at 
an altitude of 18,000 meters (60,000 feet) during Project HI-CAT (Ref. 40, 
run number 264-16) sponsored by the United States Air Force. The numbers 
1, 2, and 3 denote the vertical, lateral, and longitudinal gust components 
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respectively. The data of figure 5 clearly depart from the gaussian dis- 
tribution at both small and large gust velocities. 

It must be pointed out that these results alone do not disprove the 
hypothesis that atmospheric turbulence can be modeled as a locally 
gaussian process. Another possible explanation of the behavior illus- 
trated in the figure is that the time histories from which the data were 
derived contained patches with differing intensities. This interpretation 
would agree with the gaussian patch model discussed in the introduction of 
this report. Further remarks regarding this model will be found in the 
fourth and fifth parts of this section. r 

Gust Velocity Distributions Estimated from Many Samples 

Figure 6 presents two vertical gust velocity cumulative distribu- 
tions obtained during the United States Air Force sponsored Project 
LO-LOCAT (Ref. 11), The data on the left were obtained during 5,000 



gust velocity (m/sec) gust velocity (m/sec) 

Figure 6.— Experimental ly measured cumulative gust velocity 
distributions of atmospheric turbulence compared 
with those of the gaussian model. 



38 


kilometers (3,122 miles) of flight over high mountains at an average 
altitude of 230 meters (750 feet) above the surface in a neutrally stable 
atmosphere (data category 123000). The data on the right were collected 
during 2,000 kilometers (1,248 miles) of flight over plains at an alti- 
tude of 230 meters (750 feet) in neutrally stable conditions (data cate- 
gory 423000). In both cases the distribution predicted by the gaussian 
model has been calculated using equation 11 and the measured probability 
distributions of the standard deviations for each data category presented 
in reference 11, Note that in both cases the cumulative distribution 
estimated using the assumption of a gaussian process underestimates the 
occurrence of high gust velocities by substantial factors. Again, it 
should be pointed out that the apparently non-gaussian behavior of the 
data shown in figure 6 could be explained by the gaussian patch model. 

Level Crossing Frequencies Estimated from Many Samples 

Figure 7 presents two cumulative probability of exceedance distri- 
butions obtained during the L0-L0CAT project (Ref. 11). These data were 



gust velocity (m/sec) gust velocity (m/sec) 

Figure 7 . --Experimental ly measured cumulative probability of 
exceedance distributions of atmospheric turbulence 
compared with those of the gaussian model. 
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derived from the same time histories which produced the data of figure 6, 
and a more detailed discussion of the test conditions will be found in the 
text describing that figure. The data on the left are from data category 
123000 and those on the right are from category 423000. The distribution 
based on the gaussian model was derived using equation 21 and the distri- 
butions of gust velocity standard deviation presented in reference 11. 
Again the results based on the stationary gaussian turbulence model sig- 
nificantly underestimate the occurrences of high gust velocities. 

Patch Sizes Implied by the Gaussian Patch Model 

Figures 5, 6, and 7 have shown typical experimental observations 
which indicate that the stationary gaussian model underestimates the 
occurrences of high gust velocities. This apparently non-gaussian behav- 
ior can still be explained in terms of stationary gaussian processes by 
means of the gaussian patch model which was described in the introduction 
of this report. 

If this model is a valid representation of atmospheric turbulence, 
the stationary gaussian model will provide a good representation of 
each turbulent patch and therefore will be a good model for aircraft 
design work. There is, however, evidence which indicates that the 
gaussian patch model is not valid. 

A study of the patch size implied by the gaussian patch model carried 
out by Gould and MacPherson (Ref. 27) found that the more intense (and 
therefore the more important) patches are so small as to require a non- 
stationary analysis for vehicle response calculations. Figure 8 shows 
the relationship between patch size and intensity taken from reference 
27. Intensity is measured in terms of vertical acceleration rms g ' s of 
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the test aircraft. Note that patch size decreases rapidly with increas- 
ing intensity, and that the most intense patches are only two to three 
kilometers in length. An aircraft cruising at 200 m/sec true airspeed 
would pass through one of these patches in only 10 to 15 seconds. This 
interval is easily of the same order of magnitude as the significant 
response time constants of most vehicles, and encounters with such short 
disturbances would necessarily require a nonstationary analysis. It is 
also quite possible that the state of the vehicle at the time of initial 
entry into such short patches may have a significant effect on the 
response statistics, a result which would greatly complicate the analysis 
because the independence of patches could no longer be assumed. 



Figure 8. --Patch sizes implied by the gaussian 
patch model of atmospheric turbulence. 


Thus, even though the gaussian patch model can explain the results 
shown in figures 5, 6, and 7, figure 8 indicates that the assumption of 
large patch sizes required to justify a stationary analysis of vehicle 
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responses is not valid. In addition to these results, the distribution 
of gust velocity increments provides further evidence that the gaussian 
patch model is invalid. 

Distribution of Gust Velocity Increments 
Figure 9, taken from reference 24, shows comparisons of gust velocity 
probability densities with corresponding velocity increment density func- 
tions. The solid line in each graph is the gaussian distribution and the 
dashed lines indicate the limits of the original data which can be found 

in reference 24. Each graph is based on several time histories which were 

2 

chosen for their stationary character. In all cases the density functions 
have been standardized as defined in equation 31. The data on the left of 
the figure were obtained during the HI-CAT program (Ref. 40). The center 
graphs show data collected during flight through severe storm turbulence 
(Ref. 41). The data on the right were obtained at low altitude during 
the Barbados Oceanographic and Meteorological Experiment (Ref. 42). In 



Figure 9. — Comparison of experimentally measured gust velocity 
distributions (top) with corresponding gust velocity 
increment distributions (bottom). 
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each case it is readily apparent that the increment distribution is not 
only non-gaussian but also quite different from the corresponding velocity 
distribution. 

In the preceding section of this report (Eq. 33) it was shown that, 
if turbulence could be described as a collection of stationary gaussian 
patches, the standardized densities of the gust velocity and its incre- 
ments were necessarily identical. Figure 9 clearly shows that this is 
not the case. Therefore, representation of atmospheric turbulence as a 
gaussian process is incorrect. Additional data presented in references 
22 and 25 confirm this conclusion and also indicate that the gaussian 
model underestimates the occurrence of large gust increments. 

Summary 

This section has presented comparisons of the gaussian model with 
experimentally measured turbulence data from several independent sources. 
Examples of the gust velocity distributions and level crossing frequencies 
have indicated that the stationary gaussian model underestimates the 
occurrences of high gust velocities. The gaussian patch model, which 
could explain this behavior in terms of stationary gaussian processes, is 
not well suited to vehicle response calculations because it requires a 
nonstationary analysis of the most intense turbulence patches. It has 
also been shown that the distribution of velocity increments measured in 
turbulence is different from the distribution of velocity itself, a char- 
acteristic of turbulence which cannot be explained by the gaussian patch 
model. This last result constitutes a proof that neither the stationary 
gaussian nor the gaussian patch model is actually representative of the 
true structure of turbulence. 



FORMULATION OF A NON-GAUSS IAN TURBULENCE MODEL 

The preceding section has indicated that the gaussian turbulence 
model is not well suited for vehicle design work because it underestimates 
the occurrences of both high gust velocities and large gust increments. 

It is the purpose of this section to propose a non-gaussian turbulence 
model, and discuss the general line of reasoning leading to its formula- 
tion. Only a brief description will be presented here since a detailed 
analysis will be given in the following section. 

The K 0 Model 

The ideas which led to the turbulence model proposed here originated 
with the work of reference 33. The purpose of that report was to develop 
a "patchy" model of atmospheric turbulence for use with flight simulators. 
It is known that the gaussian model, generated by the system of figure 4, 
does not produce a realistic simulation of flight through turbulent air. 
Pilots complain of a lack of patchiness in the simulated turbulence (Ref. 
43, 44). These patches are not associated with long term nonstationary 
changes of intensity in the sense of the gaussian patch model described 
previously, but are short bursts of activity which are sometimes only a 
few seconds in length. 

No quantitative description of this type of patchiness has been 
given, but a qualitative measure can be obtained by observing the deriv- 
ative of a turbulence time history. The top portion of figure 10 shows 
a comparison of derivatives from a sample of actual atmospheric turbulence 
and from the gaussian model. The gaussian time history was generated as 
shown in figure 4 and its power spectral density was chosen to match that 
of the actual turbulence as closely as possible. Observe that the 
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derivative of the true turbulence contains distinct bursts of activity 
which are totally lacking in the gaussian time history. 


gaussian 

model 


true 

turbulence 




non-gaussian I * n MH l tkm »■ 

model (f? = 1 .0) T 


K q model 



Figure 10.— The derivative of an atmospheric turbulence sample 
compared with derivative samples from several turbulence models. 
Sample length for these data is approximately 11 kilometers. 


Reference 33 has suggested a product of independent gaussian processes 
as shown in figure 11 as a model of patchy turbulence. One of the two 
processes, say a{t ) , can be imagined to represent a continuous gaussian 
time history without patches while b[t) represents a modulating or "patch 
inducing" function. Reference 33 shows that the filter transfer functions 



wide band shaping 

gaussian filters 

white noise 


sources 

Figure 11. --Product of independent gaussian processes 
which has been suggested as a model of patchy turbulence. 
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B a and B b can be chosen so that the simulated turbulence time history 
has the Dryden spectral forms (Eq. 4, 5, or 6). The probability density 
of the simulated turbulence is proportional to a modified Bessel function 
of the second type and order zero, K 0 . For this reason the turbulence 
model represented by figure 11 is called the K 0 model. Figure 12 presents 
the probability density and distribution of this model along with those of 
the gaussian model. 




Figure 12.--Probabil ity density and distribution functions 
of the K 0 turbulence model compared with those 
of the gaussian model. 

A comparison of figure 12 with figure 5 on page 36 shows that the 
K 0 distribution departs from the gaussian distribution in a manner similar 
to that of actual turbulence. That is, the Ko model is characterized by 
more small and large gusts than the gaussian model. However, it appears 
to be more severely non-gaussian than indicated by the experimental data. 

The patchy characteristics of the K 0 model are shown at the bottom 
of figure 10. Note that they are much more severe than indicated by the 
true turbulence time history. 
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The Non-Gaussian Model 

The fact that the K 0 and gaussian models seem to "bracket" the char- 
acteristics of atmospheric turbulence led, in reference 34, to the join- 
ing of these two models as shown in figure 13, For want of a better name 
this combination is called simply the non-gaussian turbulence model. It 
will be shown in the next section of this report that it is possible to 
choose the transfer functions H , H, , and H of figure 13 so that the 
time histories c{t) and d(t) have identical power spectral densities 
of the Dryden form. When this choice is made the simulated turbulence 
will also have the Dryden spectral density. Furthermore, this result 
will be independent of the parameter R which appears in figure 13. Thus 
R does not affect the power spectral density of the non-gaussian model, 
it does however influence its probability distribution. 



wide band gaussian linear 
white noise filters 
sources 
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factors 


Figure 13. —Physical interpretation of a single component of the 
non-gaussian turbulence model. A similar interpretation 
applies to each of the three components. 


To see the reason for this, suppose that the value of R is set to 
zero. Then the simulated turbulence will consist entirely of the gaussian 
time history, a{t). As R is allowed to increase, more and more of the K g 
time history will be used. Finally, in the limit as the value of R 
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approaches infinity, the simulated turbulence will consist entirely of 
the K a process. Thus the parameter R is a control on the probability 
distribution and a continuum of distributions between gaussian and K 0 is 
available. Figure 14 shows the range of probability functions which can 
be obtained. 



Figure 14.— Typical probability distributions attainable using 
the non-gaussian turbulence model. 

As an indication of the patchy characteristics attainable using the 
non-gaussian model, figure 10 includes a sample of the derivative for the 
case R equal to unity. Note that it matches the characteristics of the 
true turbulence sample quite well. 

Figure 13 is a physical interpretation of the non-gaussian model, 
and shows how it can be generated for numerical studies. The principal 
assumptions on which the model is based are the same as those of the 
gaussian model, except of course for the probability distribution. These 
assumptions are: 

1) Each encounter of an aircraft with atmospheric turbulence 
can be modeled as a deterministic linear system (the air- 
craft) perturbed by three independent, stationary stochastic 
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processes. These processes represent the longitudinal, 
lateral, and vertical gust components at the vehicle 
center of gravity as it moves through the gust field. 

2) The power spectral density of each random process belongs 
to a family of spectral shapes characterized by two param- 
eters, the gust velocity standard deviation (a), and the 
gust scale length (£). The scale length is a determin- 
istic function of altitude and a is a random variable which 
changes from encounter to encounter. 

3) Each of the three gust components is a non-gaussian process 
of the form u{t) = a[t)b(t) + a{t) , where a, b , and c are 
independent, stationary gaussian processes. 

The validity of the first two assumptions has been discussed in the intro- 
duction. The power spectral forms chosen for use in this report are those 
proposed by Dryden (Eq. 4, 5, 6). The third assumption is, of course, the 
central idea of the non-gaussian model. Its validity will be investigated 
in later sections of this report as the properties of the proposed model 
are compared with those of atmospheric turbulence. 



ANALYSIS OF THE NON-GAUSS IAN MODEL 

It is the purpose of this section to derive suitable expressions for 
the transfer functions used in the non-gaussian model, and to analyze the 
model's statistical properties. Specific results to be obtained for each 
component of the model are: 

1) transfer functions 

2) probability distribution 

3) level crossing frequency 

4) increment distribution. 

Figure 13 presents the physical interpretation which can be applied to 
each of the model's three components. The notation of this figure will 
be used throughout the following development. The problem of vehicle 
response calculations will not be considered here, but will be taken up 
in a later section of this report. 

Derivation of Transfer Functions 

Recall from the introduction of this report that the turbulence 
models described here are to have the Dryden power spectral densities 
(Eq, 4, 5, 6). It will now be shown that it is possible to choose the 
filter transfer functions H , H u , and H of figure 13 so that each com- 
ponent of the non-gaussian model has the appropriate spectral form. The 
method to be followed is: 

1) Fourier transform the Dryden spectra to obtain the corre- 
sponding correlation functions 

2) derive a general expression relating the correlation 
function of the non-gaussian model to the filter transfer 
functions 
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3) assume specific forms for the transfer functions 
involving unspecified constants 

4) show that the constants can be chosen so that the 
correlation function of the non-gaussian model has 
the required Dryden form for each component. 

In general , the correlation function is related to the power spectral 
density through a Fourier transform of the form 

oo 

C( t) = J $(S2) exp(i VQr) dQ, . (38) 

— OO 

Applying this transformation to the Dryden spectra, equations 4, 5, and 6 
gi ves 

C (x) = o 2 exp(- j- | t j ) (39) 

uu u r 1 L 1 u 

u 

c vv {t) = V^ 1 " 4 4 exp t-jr |t » (40) 

V V 

C mw ( t) = a «/( ] ■ 44 exp ^- IT l T H • ( 41 ) 

These equations complete the first step of the transfer function deriva- 
tion. A general expression for the correlation function of the simulated 
turbulence time history of figure 13 will now be derived. By definition, 
this correlation function is 

C { t) = E{g(t)g(t + t ) } . (42) 

From figure 13, g{t) is 

g(t) = a{t) b{t) i?(l +R Z ) " 1/2 + c(t)(l +tf 2 ) “ 1/2 . (43) 
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Since a, b> and e are independent, zero mean random processes, the cor- 
relation function of g(t) can be written as 

C (t) = C7 (t) C,, (r)i? 2 (l +R 2 ) " 1 + C (t) (1 +E Z ) ~ 1 . (44) 

gg ' aa' bb ac v ' 

Now consider a(t) alone. It follows from the general relationship 
between the input and output power spectral densities of a linear system 
(Ref. 38) that the spectral density of a has the form 


= $ n n * (45 > 

'a a 

If it is assumed that the power spectral density of the process n Q (*) is 
unity over the range of frequencies for which H ' is not essentially zero, 
then 

The correlation function of a{t) can be found by Fourier transforming 
equation 46 as shown in equation 38. 


C ( t ) 
aa 


oo 

\H a {iUQ)\ 2 exp (iunj)dn 

— oo 


(47) 


Similar results apply to b(t) and e(t) of figure 13. This result, along 
with equation 44 completes the second step of the transfer function deri- 
vation. 

For the third step Of the procedure, suppose that the following 
general forms are assumed for the transfer functions of the model. 


N 


H a (s) = 


1 +D, 


(48) 
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H b (s) = 


N +N 8 

2 3 


(1 + D z s) 2 


(49) 


V e) = 


^ + N s s 
0 +D 3 s ) 2 


(50) 


These particular expressions have been chosen because they will lead to 
useful results. There is no reason why other general forms could not 
be chosen which might also give good results. (See the discussion of 
increment distributions in this section and suggestions for further 
research in a later section of this report. ) 

Transforming equations 48 through 50 as shown in equation 47 yields 
the following correlation functions. 

|t| 

C a« (T) = 257 exp( - (51) 



Substitution of these results into equation 44 will give the general form 
of the correlation function of the non-gaussian model. 

If now the following choices are made for the arbitrary constants in 


equations 51, 52, and 53 
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D 2 = 
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the resulting correlation functions of the model become 


C cc { t) = W x) = C gg {T) = a u 2 ex P(- (55) 

which is the form of the u-gust correlation function, equation 39. Note 
that not only g(t ) but also a{t) and d[t) have the u-gust correlation 
function. The following result, which will be useful later in this 
section, is obtained directly from equation 55 by setting t equal to zero. 



If the constants of the filter transfer functions are chosen 

to be 



(56) 


( 57 ) 


the resulting correlation functions are 
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This is the desired form of the lateral gust correlation function, 
equation 40. Again, the time histories c(t), d(t) and g(t) all have the 
same correlation function and 


a 2 = a , 2 = o 2 = a 2 
c a g v 


( 59 ) 


Finally, if the constants are chosen to be 
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the correlation functions are 
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This result is the Dryden form of the vertical gust correlation function. 
Again note that c(t), d(t) and g(t) have the same correlation function, 
and therefore 


o 
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(62) 


This completes the derivation of transfer functions for the non- 
gaussian model. The results are summarized in table 1. 



55 












56 


Two additional features of the above derivation justify comment. 
First, the forms of the transfer functions assumed here have been selected 
so that the correlation functions of the model do not depend upon the 
parameter R. Thus R will not influence the power spectral density of 
the model. As was discussed in the preceding section, this is a very 
convenient result which allows R to act solely as a control on the model's 
probability distribution. However, it will become apparent presently 
that the particular choices made here will have undesirable effects in so 
far as the distribution of increments is concerned. Further comment on 
this subject will be found in the discussion of increment distributions 
to be found in this section, and also in the suggestions for further 
research in a later section of this report, 

A second point concerning the above derivation is that the choice 
of parameters made in equation 54 is somewhat arbitrary. In particular, 
the quantities D x and d 2 could be chosen to be any pair of numbers satis- 
fying the relationship 


_L + J_ = JL 

D i Z^2 

u 


(63) 


This arbitrariness has been used in Reference 45 to define a "patchiness 
parameter" which can be included as an additional variable of the model. 
This complication is not considered in the present work, but is mentioned 
as an indication of the further generality which can be introduced into 
the non-gaussian model. 
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Probability Distribution 

Attention is now turned to some aspects of the probabilistic struc- 
ture of the non-gaussian model. The first topic to be discussed will be 
the model's probability distribution. The following remarks apply equally 
well to all three components of the proposed model; for the sake of defin- 
iteness, however, only the longitudinal gusts will be explicitly discussed. 

Consider again the physical interpretation of the non-gaussian model 
presented in figure 13. The simulated turbulence time history is 

git) = e(i) + h{t) , (64) 

where 

e(t) = ait) hit) 7? ( 1 +R Z ) (65) 

hit) = c(t)( 1 +i? 2 ) 1/,z . (66) 

The time histories ait ) , bit) and ait) are independent, zero mean, 
gaussian random processes. Thus each has a probability density of the 
form 

pix\o) = ■ ■ , exp[ - j-(f) 2 ] . (67) 

ai 2tt) /z * a 

The steps to be followed in deriving an expression for the probabil- 
ity distribution of the non-gaussian model are: 

1) derive an expression for the probability density of the 
product ait) bit) appearing in equation 65 

2) using the density function from step 1, obtain an expres- 
sion for the characteristic function of the first term of 
equation 64 



58 


3) find the characteristic function of the second term of 
equation 64 

4) multiply the characteristic functions of steps 2 and 3 

to obtain the characteristic function of the non-gaussian 
model 

5) Fourier transform to obtain the density function of the 
non-gaussian model . 

The first step is to find an expression for the probability density 
of the product a{t)b(t) . Since a and b are independent processes, it 
follows that the probability distribution function of their product is 


V s ! 


a 


a b ] ~~ 


P a («k a ) P b (y\° b ) dxdy 


( 68 ) 


where ? denotes that region of the x~y plane in which the condition 
xy S z is satisfied. The density functions p a and are both of the 
gaussian form presented in equation 67. Substitution of equation 67 into 
equation 68 followed by differentiation with respect to z and finally 
integration gives the following result for the density function of 
a[t) b[t) . 

p Az\a ,a,) = - — K 0 

r ab ' a b ir a a, 
a b 


a a. 


(69) 


where K 0 is the modified Bessel function of the second type and order 
zero. Equation 69 completes the first step of the derivation. 

Now note that v a ° b is the standard deviation of the product a{t) b{t) 
and, according to the notation of figure 13, this product is equivalent 
to d(t). Also, equation 56 states that the standard deviation of d(t) 
is equal to by virtue of the choice of transfer functions of the model. 
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Thus o o £ is equal to , and equation 69 can be written 
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The first term of equation 64 is, according to equation 65, the 
product of a(t) b(t) scaled by the factor (1 + R Z ) ~ ' , so it follows 
immediately that 
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The characteristic function of e(t) can be found by Fourier transforming 
equation 71. 





p {z\a ,R ) exp(£ 2ir/s) dz 

U IA 


(72) 


The particular form of the Fourier transform employed in equation 72 was 
chosen for two reasons. First, it will lead to some simplification of 
the expressions to be derived presently. Secondly, and perhaps more 
importantly, a computer program implementing this transformation will be 
used for numerical studies later in this report. 

Substitution of equation 71 into equation 72 and evaluation of the 
resulting integral gives 
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[2ir R a (1 +R 
u u u 




(73) 


Equation 73 completes the second step of the derivation. 

Now consider the second term on the right hand side of equation 64. 
The process h{t) is clearly gaussian because a{t) is gaussian, and its 
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standard deviation is just that of a{t) scaled by the factor (1 +i? 2 ) " 1 ^ z 
From equation 56 it is known that a is identical to a . Thus the 

G U 

probability density of h (t) is 
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The characteristic function of h is found by Fourier transforming in 
the same manner as equation 72. 


h (f \°u > R u ] = exp{-2[7ra w (l + */) " 1/2 /] 2 } (75) 


This result completes the third step of the derivation. 

Since e{t) and h{t) are independent random processes, it follows that 
the characteristic function of their sum is given by the product of their 
respective characteristic functions. Thus, for the case of the u-gust 
component of the non-gaussian model 
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(76) 


The characteristic functions of the vertical and lateral components of 
the model are obtained merely by replacing the subscript u of equation 
76 with w and v respectively. This completes the fourth step of the 
derivation. 

The probability density of the non-gaussian model can now be obtained 
by inverse Fourier transforming equation 76, 
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(77) 
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Equation 77 is easily evaluated numerically by means of the fast Fourier 
transform program FFT which will be found in the appendix of this report. 
Similar equations apply to each component of the model. The probability 
distribution function can be obtained directly from the density function 
of equation 77 by means of integration. 

x 

' • ■ 'P (x\cs : ,R ) = \ p (y\o , R ) dy (78) 

g ' u u' ) u u‘ a v ' 

-00 

Figure 15 presents the density and distribution functions of the 
non-gaussian model for several values of the parameter R, Tabulated 
values of these functions will be found in tables B1 and B2 of Appendix B. 
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Figure 1 5. --Probabi 1 i ty density and distribution functions 
of the non-gaussian turbulence model for various values of 

the parameter R. 

In the next section of this report it will be of interest to compute 
the probability distributions which would be obtained by combining data 
from many samples of the non-gaussian model. It will be assumed that the 
parameter R is fixed, but a will be allowed to vary randomly from sample 
to sample. If a is distributed over the samples with the density function 




62 


P a , the probability density of the non-gaussian model based on all of 
the samples will be 


P g ( x \ R u ) = { P g (*\y * R u ) P a (v) & » ( 79 ) 

0 

and the cumulative gust velocity distribution of the model will be 

co 

p g °(x\ R u ) = 1 - | P g (y\E u )dy . (80) 

— OO 


Level Crossing Frequency 

The level crossing frequency of the non-gaussian model will now be 
investigated. The basic relation used here will be the well known result 
of reference 36, 

oo 

N (a:, la , a* ) = 77 [ x~ p . (x, , x n |a , a- ) dx„ . (81) 

g 1 1 g g u J 2 *g t g' 1 * 2 1 g g' 2 v ; 

0 

N is the number of crossings with positive slope of the level per 

y 

unit distance of flight. The function p •(x lJ x z ) is the joint density 

y>y 

of the turbulence time history and its first derivative. 

Oust as in the case of the gaussian model considered previously in 
this report, a problem arises in the application of this equation to the 
non-gaussian model because the first derivative of a stochastic process 
having one of the Dryden spectral densities does not exist. This dif- 
ficulty can be overcome in a manner similar to that of the gaussian model 
by adding high frequency poles to the transfer functions of the non-gaussian 
model. These new poles can be looked upon as the effect of viscosity at 
very short wavelengths. It will be shown that, similar to the case of 
the gaussian model treated previously in this report, these poles have no 
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effect whatsoever on the probability distribution of the model, and act 
only as a scale factor of the level crossing frequency. Since vehicle 
responses virtually never involve such high frequencies, these poles need 
not be considered in response calculations. 

The following discussion will at first be restricted to only the 
longitudinal gusts. The results will then be extended to the vertical 
and lateral components. The principal steps of the procedure are: 

1) add high frequency poles to the transfer functions of 
the turbulence model 

2) derive expressions for the standard deviation of the 
gust component and its first time derivative 

3) examine the effect of these new poles on the spectral 
density of the model, showing that the spectra are 
still essentially the Dryden forms 

4) use the results of step 2 to obtain an expression for 
the joint characteristic function of the gust compo- 
nent and its first derivative 

5) inverse Fourier transform the joint characteristic 
function of step 4 to obtain the joint density of the 
gust time history and its first derivative 

6) apply equation 81 to the joint density of step 5 to 
obtain the level crossing frequency of the non- 
gauss i an model 

7) review the results of steps 4 through 6 in order to 

determine the dependence of the level crossing 
frequency upon the poles added to the transfer 
functions in step 1 and the parameters cr^ , , 
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u a and b which appear in the result, 

8) determine a set of universal curves from which the 
level crossing frequency for any set of parameters 
can be found without resorting to the complete 
process described above. 

Level Crossing Frequency of the Longitudinal Component 

Recall the three linear filters used to generate the longitudinal 
gusts (table 1, page 55). The spectrum produced by these filters is the 
Dryden w-gust form, equation 4. As was pointed out in the discussion of 
equation 13, this spectrum behaves like ft " 2 at high frequencies. There- 
fore the first derivative of the u-gust random process is not defined. 

In order to overcome this problem high frequency poles are added to the 
transfer functions as shown in equations 82, 83, and 84. 



The constants k Q and are scaling factors which will be chosen so as 
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to correct the effects of y u on the standard deviation of a{t) and d[t). 
The power spectral density of d(t) can be found by substituting first 
equation 82 and then 83 into equation 47, multiplying the results to 
obtain the correlation function of d{t ), and finally Fourier transform- 
ing to obtain the power spectral density. The result is 
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(85) 


The power spectral density of e(t) is obtained by substituting equation 
82 into equation 47 and Fourier transforming. 
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(86) 


The constants k and k , are now chosen so that the standard devia- 

o d 

tions of both c{t) and d(t) are equal to a . 


k = 
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a 
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(87) 
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It can also be verified that, with these values of k and k . , the 

q a 

standard deviations of e(t) and 5(f) are equal to 


a* = cr« = U a (y L ) 
a d u u u 


~ l/2 


(90) 
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These results imply that the standard deviation of the non-gaussian 
model and its derivative are 


a = a 
9 m 


o* = U a { y L ) 
g u' 'u u 


- 1/2 


Equations 89 through 92 complete the second step of the derivation. 
The power spectral density of the model is 


(91) 

(92) 


$ (ft) = 

99 


W a >V 


0 +« 2 > 


- 1 


u 
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(93) 


Substitution of equations 85 and 86 into equation 93 gives an expression 

for $ which is far more complicated than the simple Dryden spectral 

y y 

density. However, on the assumption that y u is very much smaller than 
L u , the power spectral density of the non-gaussian model becomes 


a 2 L 


$ (fi) 

99 
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U U_ |~1 ( 'u j 

r — 1 ir =T + °i r] 

[’ + K a) 1 [' + K I 1 u> 


(94) 


Equation 94 is, to second order in y u / L u > the Dryden form of the w-gust 
power spectral density with an additional high frequency pole. This is 
precisely the result required in order to insure the existance of g{t), 
and equation 94 completes the third step of the level crossing derivation. 
Note that the standard deviations of c(t) and d[t) have not been 

altered by the addition of y . Thus the probability distributions dis- 

u 

cussed earlier in this section remain unchanged. 
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The level crossing frequency of the non-gaussian model will now be 
developed using the modified transfer functions, equations 82, 83, and 
84. Consider the joint characteristic function of g{t) and its first 
derivative. By definition this is 

$ g fi ,fz) ~ E{exp[i2ir fi. g{t) + -C2-n f 2 g(t)]} . (95) 

In terms of the processes a(t), b(t)> and o(t) used in the non-gaussian 
model, g(t) and g(t) are 

g(t) = a (t)&(t)i? w (l+^ 2 )' l/2 + e (t)(l+i? u 2 )- l/2 (96) 

g(t) = [a(t)b(t) + a(t)b(t)]R u (1+R u 2 )- l/2 + e{t) (1 + Rj ) ~ 1/2 . 

(97) 

Substitution of these two expressions into equation 95 will give an 

expression for <J> • in terms of a, a , i, fc, e, and c. If now the joint 

9 »y 

density of these random processes can be determined, the expected value 
appearing in equation 95 can be evaluated and the joint characteristic 
function found. 

Note that the processes a, b , and c are zero mean, independent, and 
gaussian. Since the derivative of a gaussian process is always gaussian, 
it follows that a , £, and e are zero mean, independent, and gaussian. 
Furthermore, since a random process and its first derivative are always 
uncorrelated, it follows from their gaussian nature that a, a, b, b , a, 
and a are mutually independent. The joint density function of these 
processes can thus be written directly. 
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The standard deviations appearing in equation 98 can be found from the 
filter transfer functions, equations 82, 83, and 84. 
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Equations 96 through 99 can now be combined to evaluate the joint char- 
acteristic function of the non-gaussian model, equation 95. 
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This completes the fourth step of the derivation. 


( 100 ) 
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Equation 100 can be integrated to give a closed form algebraic 
expression for the joint characteristic function of the non-gaussian 
w-gust component and its derivative. The joint density function required 
for the evaluation of the level crossing frequency can then be found, at 
least in principle, by means of the Fourier transformation 


p >{x, ", as-j'a , <x* , a, , at , a , a* , R ) = 
e g,g 1 21 a a b a o' u' 


001 ) 


\ \ 1 * * a a » a a » a b ' °b * °o » a o 5 R J exp( “ i2irf ' ^ df 2 • 


Evaluation of this expression would complete the fifth step of the deriv- 
ation. Finally, the level crossing frequency can be found by means of 
equation 79. 

In reality, of course, the series of integrations required to pass 
from equation 100 to the evaluation of the level crossing frequency are 
extremely tedious if not overwhelmingly difficult. Fortunately, a far 
more convenient means of solution is available through use of a digital 
computer and the appropriate numerical methods. Program LEVXNG, listed 
in the appendix of this report, is one means of performing these calcu- 
lations. This program was, in fact, used to compute the level crossing 
results to be presented in this section. 

Program LEVXNG permits the rapid calculation of N for any set of 

y 

parameters a u , , u , r , and y u which might be of interest. However, 

merely calculating results for various cases does not yield much useful 
information concerning the dependence of the solution on its parameters. 
Furthermore, every time any of the parameters is changed, it becomes 
necessary to repeat the entire calculation in order to obtain the new 
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level crossing frequencies. Thus it would clearly be quite useful to 
have some idea as to how a change of parameters will affect the result- 
ing level crossings of the model. With this in mind, a set of universal 
curves depending only upon the parameter R will now be derived. It 
will be shown that the level crossing frequency for any choice of the 
parameters a , L , u , and y can be found from these curves. 

It is possible to integrate equation 100 with respect to x 5 and x 6 
with a minimum of difficulty. The results of these integrations can be 
factored from the remaining integrals and identified as the joint charac- 
teristic function of e and b . Equation 100 can then be rewritten in the 
form shown in equation 102, (For the sake of simplicity and clarity, the 
explicit parameter dependence notation will be temporarily suspended.) 
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- (2a 2 ) “ 1 0 £2 t rf. R * i2vA R * 1 

a 1 u J 2 u 

0 " ( 2 CT a 2) " X W*V 0 

4 = • (102b) 

i2*f z R u * W 2 R u * -(2a i 2 )" 1 0 

i2vf 2 R u * 0 0 - (2a^ 2 ) " 1 

i? * = i? (1 +J? 2 ) “ 1/2 
uuu 


Now suppose that a special case of the joint characteristic function 
is computed. Let all of the parameters with the exception of r be set 
to unity. 

a = L = U = y =1.0 (103) 

uuu 


Denote this case by $ • . Note that $ is a function only of f 1 , f 2 , 

9*9 

and r . 
u 

Consider again equation 102 and introduce the following change of 
variables: 



} (104) 


A comparison of this transformed expression with the special case <J> , 
taking note of the equalities 
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a cr, = a 
a b a 


cr* a, 2 1//z = a ar2 1//z 
a b a b 


of equation 99, leads to the conclusion 


a» 

e 


( 105 ) 




*g 3 g{f 1 * A) = ^g/g^ 1 a c> A a e) • ( 106 ) 

The joint density function of p and ^ is obtained by means of equation 

101. Substitution of equation 106 for <j> * in equation 101 and intro- 

d j 3 

ductlon of the variables 


A' - f i a tf 
f 2 = T 2 


gives 




1 A f a l x 2 ' 
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(107) 


008) 


The notation p * is used to signify the joint density corresponding to 

A 

the joint characteristic function <J> * . 

The level crossing frequency of the non-gaussian model can now be 
found by substituting equation 108 into equation 81 and performing the 
change of variable x' = a; 0 /o* . The result is 
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(109) 
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A 

where N Is the level crossing frequency of the special case. 

& 

The explicit parameter notation can now be reinstated. Substitute 
for V and o* from equation 99 and recall that the special case N ' depends 
only on the parameter . The final expression for is 


N (a: I a 
9 ' u 


,L ,R 

u u 




{L y ) 
u ' u ' 



(HO) 


Note the similarity of equation 110 to the level crossing frequency 
of the gaussian model, equation 16. Just as in equation 16, the crossing 
frequency is inversely proportional to the square root of y m . Thus j u 
can be interpreted as a control on the zero crossing frequency of the 
non-gaussian model, and could be chosen so as to match equation 110 to 
some observed data. For the purposes of the present report, however, the 
value of can be allowed to remain arbitrary. 

Equation 110 implies that once the level crossing frequency of the 
special case has been computed for a given value of R , the result for 
any choice of a , , and y^ can be found directly. Alternatively, the 

equation states that all u-gust level crossing frequencies of the non- 
gaussian model can be reduced to a single function through the indicated 
scaling. In order to show that these results apply only to the w-gust 
component of the model, the subscript g will now be replaced by u . 

The function N U ( X \ R U ) ^ as been computed using program LEVXN6 which 
is described in Appendix A of this report. Figure 16 and table B3 (of 
Appendix B) present the results for several values of the parameter R . 
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Figure 16.— Level crossing frequencies of the non-gaussian 
turbulence model longitudinal component for various 
values of the parameter i? . 


In the next section it will be of interest to evaluate the cumulative 
probability of exceedance which would result from combining data from a 
number of samples of the non-gaussian model. As in the case of the 
gaussian model described previously, it will be assumed that the param- 
eters a u * L u > and y u vary randomly from sample to sample. The standard 
deviation, , will be assumed independent of and y^ ; and the param- 
eter R u will be required to remain constant over all the samples. 

Recall from the discussion of the gaussian model that the cumulative 
probability of exceedance is calculated by first finding the average 
level crossing frequency for all of the samples, then normalizing with 
respect to the average zero crossing frequency. In view of the above 
assumptions, the cumulative probability of exceedance of the u-gust 
component is 
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N uW R J fff N u (p\o>L,X u ,y)p a (a)p L y (L J Y)dadLd Y 
0 u u 3 u 


where p o and p are the probability density functions of a ,L , 

u u 3 'u 

and y . Equation 111 can be greatly simplified by substituting equation 

110 for N . The result is 
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N (x\ R ) 

U K ' U J _ 
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{ l*JPa W JCT * 
6 M 


(112) 


Note that it is not necessary to know the distribution of either L or y 

u u 

in order to evaluate equation 112, a result analogous to that for the 
gaussian model (Eq. 21). 

This completes the analysis of the longitudinal gust level crossings. 
The methods applied above will now be extended to the vertical and lateral 
gust components. 

Level Crossing Frequency of Lateral and Vertical Components 

The level crossings of the lateral gust component will now be con- 
sidered. Since the vertical and lateral components of the non-gaussian 
model use linear filters of the same form, all results for the lateral 
gusts will apply directly to the vertical gusts. 

Recall from table 1 the transfer functions to be used in generating 
the lateral gust component. The power spectral density produced by these 
filters is the Dryden y-gust form, equation 5, Just as in the w-gust case 
considered above, the derivative of a process with the Dryden spectrum is 
not defined. In order to avoid this problem, the spectrum is modified 
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through the addition of high frequency poles to the transfer functions. 
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(115) 


Unlike the M-gust case, it is convenient to use two parameters, y y and 

v , rather than only one. The constants k and k , are scaling factors 

v ad 

which will be chosen so as to correct the effects of andv y on the 
standard deviations of a{t) and d[t) . 

The power spectral densities of a and d can be derived using the 
above transfer functions. The condition 



is satisfied by choosing 
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(116) 


(117) 


and 
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( 118 ) 


The standard deviations of c and d can be made equal by choosing v y to 
be a function of y y . 

1/2 

( 119 ) 

The resulting standard deviations are 
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(120) 


With the above choices of parameters, and assuming the condition Y y « £ y * 
the power spectral density of the lateral gust component becomes 




L v 0 + D + 3 ( L V n ) *1 


ir[l + + (y u «) 2 ) 



( 121 ) 


Now consider the level crossing frequency of the lateral component. 
Just as in the treatment of the longitudinal gust, an expression for the 
joint characteristic function of v and v will be derived. This expression 
will be formally identical to equation 102, but in the present case the 
standard deviations are 
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Using equation 122 and computer program LEVXNG listed in the appendix, 
it is possible to calculate exact results for the level crossing frequency. 
However, a more convenient solution of the problem can be found by intro- 
ducing an approximation for aj and a; of equation 122 which will allow 
the derivation of universal curves similar to those for the longitudinal 
case (Fig. 16). On the assumption that is much larger than Y y , the 
expressions for a £ and a* of equation 122 become 

(123) 

Employing these approximate results and following the procedure described 
above for the longitudinal gust component, derive the joint characteristic 
function of the special case 



a = L = U = Y 
v v v 


024) 


and denote this result by $ , • . Return to equation 102 and introduce 

VjV 

the change of variables 
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Comparison of this result with <f> y • gives 
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Continuation of the same procedure used for the w-gust case leads to the 
final result 
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(127) 


which is valid for Y y « . The level crossing frequency of the verti- 

cal gust component can be obtained by replacing the subscript v of equa- 
tions 113 through 127 with the subecript w. 

A A 

The special cases and N w have been computed by means of program 
LEVXNG. Figure 17 and table B4 (of Appendix B) present these results for 
several values of the parameter R. 

A comparison of figures 16 and 17 reveals that the special cases appear 
to differ by only a constant of proportionality which depends weakly upon 
the parameter R. This suggests that a transformation exists such that the 
level crossing frequencies of all three components of the non-gaussian 
model can be expressed in terms of a single set of universal curves. This 
transformation is not derived here, but the possibility of its existence 
is mentioned as a point of interest. 
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Figure 17. — Level crossing frequencies of the non-gaussian 
turbulence model lateral and vertical components 
for various values of the parameter R. 


In the next section of this report it will be necessary to calculate 
cumulative probability of exceedance curves for the vertical and lateral 
gust components. Following the procedure described previously for the 
longitudinal components gives 




N (0|i? ) " 1 

V 1 V 



(128) 


Just as in the u-gust case, the distribution of L and y y need not be 
known in order to evaluate this expression. The result for the vertical 
gusts can be obtained by replacing the subscript v of this equation with 
the subscript w. Equation 128 completes the analysis of the level cross- 
ing frequencies of the non-gaussian model. 
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Increment Distribution 

The probability distribution of the non-gaussian model's velocity 
increments will now be derived, The following remarks apply to all 
three components of the model; however, only the w-gust component will 
be explicitly treated. 

Consider the increment of the longitudinal gust component. 

A w (*|t) = u{t) -u(t-r) (129) 

The parameter t is a constant. According to figure 13, equation 129 can 
be rewritten as 

A m (*|t) = A afc (t|x) + A c (*|t) (130) 

where 

A^tlx) = [a{t) b{t) - a{t - t) b{t - i)] + H u 2 ) ~ (131) 

A (*|t) = MiJ-oft-rlKl+Sj 2 )" 1/2 . (132) 

The procedure to be followed in finding the probability distribution of 
\ is 

1) derive an expression for the characteristic function of A c 

2) derive an expression for the characteristic function of A^ 

3) multiply the results of steps 1 and 2 in order to obtain 
the characteristic function of A y . 

4) Fourier transform the result of step 3 to find the proba- 
bility density of A^ . 
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Since A e is a linear transformation of a gaussian process, it follows 
that it must also be gaussian. Its mean value is zero and its standard 
deviation is given by 


V ■ O+S/ 1 ' 1 ■ 


(133) 


where C qq is the correlation function of o(f), equation 55. The character- 
istic function of A is thus 

a 


*4 Ww°-V T) = 

c 


(134) 


exp{ - ( 2 iTa w /) 2 (l +R U 2 ) " 1 (1 - exp( Jt | )] } 


u 


The characteristic function of A , is more difficult to evaluate. 

ab 

Since a and b are gaussian processes with zero means and correlation 

functions given by equations 51, 52, and 54, <j>. can be written in the 
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The characteristic function of A y is given by 
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The probability density of can be found by Fourier transforming equa- 
tion 136. A closed form solution of this problem has not been derived, 
however program INCPD listed in the appendix of this report can perform 
all required computations for a numerical solution of the problem. 

Figure 18 presents density and distribution functions of the u-gust 
and its increment for a typical case. Comparison of the density functions 
of figure 18 with those of figure 9 on page 41 leads to the conclusion 
that the non-gaussian model does not properly model the velocity increment 



Figure 18. —Comparison of a typical non-gaussial model 
u-gust component probability distribution with that of 
the corresponding increment distribution. 


distribution of atmospheric turbulence. Additional data in the form of 
probability distribution functions presented in references 22 and 25 con 
firm this conclusion. The increments of actual turbulence are sharply 
more non-gaussian than the velocity, while the increments of the model 
are less non-gaussian than the velocity. As a result, the non-gaussian 
model underestimates the occurrences of large increments. 

The reason for this can be seen by considering the gaussian and 
non-gaussian portions of both the velocity and velocity increment. The 
velocity of the model is the sum of two independent parts; the product 
a(t) b{t) which has a K distribution (Fig. 12), and a(t) which is gaus- 
sian. The relative intensity of these two parts can be shown to be 
[since a(t) b(t) is equal to d[t)] 
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The probability density of the gust velocity can be found by convolving 
the k q and gaussian densities to obtain a result which is, in general, 
non-gaussian. Similarly, the velocity increment of the model is the sum 
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of two independent parts; the increment which is gaussian, and the 
increment L ab which is non-gaussian. Just as above, the probability 
density functions of these two parts, and their relative intensities can 
be shown to be 



R 


lc da ( °)-W T)1 


= i? , 


038) 


However, the probability distribution of a ^ is not sharply non-gaussian 
like the K Q distribution. It is instead much smoother, tending to look 
like the exponential function, exp( - ja: | ) . Because of this smoothness 
and because A a j, has the same intensity relative to A^ as has the product 

a{t) b[t) relative to e{t), it follows that when the density of A 7 is 

ab 

convolved with the gaussian density function, the result will be more 
nearly gaussian than the convolution of K with the gaussian density. 

Thus, as shown in figure 18, the distribution of A^ is more nearly gaus- 
sian than the distribution of u itself. 

There are two ways in which the increment distribution can be made 
more strongly non-gaussian than the velocity distribution; increase the 

intensity of A , relative to A while holding the ratio a ,/cr constant, 
ab c ab a 

or make the distribution of A^ more non-gaussian than the K Q distribution. 

The second of these does not appear to be possible. The first, however, 

could be achieved by modifying and C dd of equation 138 so that the 

ratio /a^ is greater than R. This would require changing the trans- 
ab a 

fer functions of the model, and would invalidate many of the results 
obtained so far. For this reason, the possibility of modifying the model 
so as to more accurately model the increment distribution of atmospheric 
turbulence will not be discussed in this report. Instead, this subject 
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will be suggested as a topic for further research. 

Because the model in its present form does not properly reproduce 
the increment distributions of actual turbulence, its use should be 
restricted to those applications which require only the accurate modeling 
of the gust velocity distribution and level crossing frequency* These 
applications will typically involve responses of the rigid body modes of 
the aircraft which are not as excited by large increments with short time 
lags as are the structural modes. 


Summary 

This completes the statistical analysis of the proposed non-gaussian 
turbulence model. Before proceeding to the next section, a brief summary 
of this section is in order. 

1) Equations 38 through 63 showed that the linear filters of 
the model could be chosen so as to produce the Dryden spec- 
tral densities. The results are contained in table 1 which 
summarizes the transfer functions for each of the three gust 
components. 

2) Equations 64 through 80 were concerned with the probability 
distribution of the non-gaussian model. Figure 15 pre- 
sents density and distribution functions attainable 

with the model . 

3) Equations 81 through 128 derived the level crossing freq- 
uency of the model. The results of this derivation are 
presented in figures 16 and 17, which show sets of uni- 
versal curves from which the level crossing frequency of 
the model can be derived for any set of parameters. 
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4) The last part of this section, equations 129 through 138 
has discussed the increment distribution of the non- 
gaussian model. The results, presented in figure 18 for 
a typical case of the longitudinal gust component, show 
that the non-gaussian model in its present form does not 
properly model the increment distribution of atmospheric 
turbulence. The reason for this behavior has been dis- 
cussed and a possible solution to this problem has been 
suggested as a topic for further research. 



VALIDITY OF THE NON-GAUSSIAN MODEL 


The results presented In the previous section have indicated that 
the probability distribution and level crossing frequency of the non- 
gaussian model exhibit characteristics very similar to those of single 
samples of atmospheric turbulence. In this section it will be shown 
that the model also fits the cumulative probability distributions and 
cumulative probability of exceedance distributions measured in atmos- 
pheric turbulence. In addition, it will be shown that the non-gaussian 
model fits these data better than the gaussian model. 

Experimental Data 

The experimental data used here will be a portion of those obtained 
during the LO-LOCAT project sponsored by the United States Air Force 
(Ref. 11). Although these data are exclusively from low altitude flight 
they were selected for use in this report for two reasons, 

1) The large body of data collected during the LO-LOCAT pro- 
gram can be divided into categories on the basis of flight 
altitude, atmospheric stability, and terrain roughness 
while retaining a large number of samples in each cate- 
gory. This will permit comparison of the models with 
turbulence data obtained under quite restricted condi- 
tions without the necessity of using small data samples. 

2) These data are readily available to anyone wishing to 
either verify the results presented in this report or 
extend them to a wider variety of cases. 

The disadvantage associated with using only this low altitude data 
is that any conclusions which might be drawn from them cannot be 
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generalized to higher altitudes. Further work will be required in order 
to show the validity of the model at high altitudes. 

All of the results presented in this section are based on vertical 
gusts. Computations for longitudinal and lateral gust components have 
indicated that the results presented here are representative of all three 
components . 

The data categories used in this section are described in table 2. 
These particular categories were selected because they represent a wide 
range of terrain, altitude, and atmospheric stability conditions. 

Goodness-of-Fi t-Cri teria 

The object of this section is to compare both the gauss i an and 
non-gaussian models with experimentally measured probability distribu- 
tions and level crossing frequencies. Before any comparison can be 
made, however, it will be necessary to define some goodness-of-fit 
criterion. That is, some objective test which can be used as an indi- 
cation of how well the theoretical curves of the turbulence models fit 
the measured data, 

A problem arises in the application of standard statistical methods 
such as the chi -squared or Kolmogorov-Smirnov tests because they require 
that the experimental data be based on independent samples. Unfortunately, 
the data of reference 11 which are to be used here are not based entirely 
on independent samples. Hence these tests are not applicable. 

There appears to be no easy solution to this problem. However, for 
the purposes of this report, it will be possible to avoid this difficulty 
by assuming that the data can be treated as essentially exact. Any 
possible differences between the true statistics and the measured 
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Table 2. --Description of data categories used in this report. 


Category Description 


111000 Vertical gust data based on 5,700 kilometers (3,536 statute 
miles of flight at an altitude of 76 meters (250 feet) 
above the surface. All data collected during 109 flights 
over high mountains in very stable atmospheric conditions. 

112000 Vertical gust data based on 7,350 kilometers (4,577 statute 
miles) of flight at an altitude of 76 meters (250 feet) 
above the surface. All data collected during 140 flights 
over high mountains in stable atmospheric conditions. 

113000 Vertical gust data based on 6,800 kilometers (4,226 statute 
miles) of flight at an altitude of 76 meters (250 feet) 
above the surface. All data collected during 129 flights 
over high mountains in neutral atmospheric conditions. 

121000 Vertical gust data based on 5,800 kilometers (3,620 statute 
miles) of flight at an altitude of 228 meters (750 feet) 
above the surface. All data collected during 112 flights 
over high mountains in very stable atmospheric conditions. 

122000 Vertical gust data based on 7,800 kilometers (4,840 statute 
miles) of flight at an altitude of 228 meters (750 feet) 
above the surface. All data collected during 147 flights 
over high mountains in stable atmospheric conditions. 


123000 Vertical gust data based on 5,000 kilometers (3,122 statute 
miles) of flight at an altitude of 228 meters (750 feet) 
above the surface. All data collected during 95 flights 
over high mountains in neutral atmospheric conditions. 

413000 Vertical gust data based on 2,900 kilometers (1,811 statute 
miles) of flight at an altitude of 76 meters (250 feet) 
above the surface. All data collected during 55 flights 
over plains in neutral atmospheric conditions. 


414000 Vertical gust data based on 2,300 kilometers (1,446 statute 
miles) of flight at an altitude of 76 meters (250 feet) 
above the surface. All data collected during 44 flights 
over plains in unstable atmospheric conditions. 
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statistics will be ignored. This is a common approach to the analysis 
of turbulence data (e.g,, Ref, 23). This assumption is acceptable in 
the present work for two reasons. 

1) The purpose of this section is only to indicate to the 
reader that the non-gauss nan model produces a better 
fit of the experimental data than the gaussian model. 

The results to be presented will show that in every case 
the gaussian model underestimates the occurrences of 
the high velocity gusts. Even though this error may or 
may not be judged statistically significant by one of 
the standard tests, it is clearly significant for the 
purposes of aircraft design if it occurs in every case 
tested. Thus it is contended that a rigorous statisti- 
cal test of significance is not required for the pur- 
poses of this report. 

2) As indicated in reference 11, the LO-LOCAT data used 
here (which were selected for the reasons presented 
previously in this section) contain some nonstationary 
effects. Run tests of both the mean and mean square 
indicated that approximately 30% of the LO-LOCAT turb- 
ulence samples could not be accepted as stationary at 
the 0.02 level of significance. Unfortunately, the 
models used in this report assume turbulence to be a 
stationary process. Thus the presence of nonstationary 
effects in the experimental data can be expected to 
have some effect on the results to be presented here, 
and the magnitude of this effect is unknown. 
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For these reasons, a more careful analysis of the data is not warranted 
at this time, 

Since the experimental data are assumed to represent the true sta- 
tistics of atmospheric turbulence, the problem reduces to one of simple 
curve fitting. Three goodness-of-fit criteria have been investigated in 
the research reported here. The first of these is the integral of the 
squared error. 


e. ( R ) 

■vse 


X ^max 

0 


^data^ 


F model^ R) \ 2dx 


(139) 


where x is the highest gust velocity measured. The functions F, , 

max ud~ba 

and F mo £ e i denote either the cumulative probability of exceedance or 
the cumulative probability distribution of the data and the model 
respectively. Note that since the model distribution depends upon the 
parameter R, the error criterion also depends upon R. The best fit of 
the experimental data is chosen to be the turbulence model with the 
value of R which minimizes e ise . Note that if setting R to zero min- 
imizes e. then the gaussian model is the best fit. 
t-se 

The second error criterion investigated was the maximum difference 
between the experimental data and the model . 
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The quantities used in this equation are the same as those in equation 
139. Again, the best fit of the data is chosen to be the model with that 
value of R which minimizes e 

max 
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Application of both e. and e to a number of data samples 
revealed that both criteria produced essentially identical results. For 
this reason, and because it is a more difficult test to apply, e. will 

^S0 

not be used in the numerical calculations of this report. 

The reader should note that both e. and e apply primarily at 

^se max r 

low gust velocities, where F is large, rather than at high gust velocities, 
where F is very small. Thus both criteria tend to ignore errors in 
modeling the occurrences of very high gust velocities and are therefore 
not ideally suited for determining the best fit of the data for the pur- 
poses of aircraft design. 

A third criterion, which is more sensitive to the occurrences of 
high gust velocities, has been studied. This is the maximum absolute 
difference of logarithms. 


: log 


(R) = 


max 
x 


los 10 [f W*» 


los 10 If *,<feZ (x l s)1 


(141) 


max 


This criterion seems to be quite sensitive to small errors at the high 
gust velocities and may therefore ignore more serious errors at lower 
gust velocities. It does however lead to a very good fit of the LO-LOCAT 
data, especially when plotted on logarithmic scales as is the usual 
practice. 

The above discussion makes it apparent that the two error criteria, 
E max ancl e log » efn Ph asize different aspects of the curve fitting problem. 
For this reason, both criteria will be used in the following tests. 


94 


Generation of Model Data 

The cumulative probability of exceedance and cumulative probability 
distribution of the non-gaussian model vertical component were generated 
according to equations 80 and 128 derived in the previous section of this 
report. The assumptions involved in these equations will be found in that 
section. The probability density of cr^ for each case was obtained from 
distribution functions presented in reference 11. 

It was also assumed that the parameter R of the model could be con- 
sidered constant for each data category. Since these categories are 
defined by altitude, atmospheric stability, and terrain characteristics, 
this assumption is equivalent to requiring R to be in some sense deter- 
mined by these factors. As R is merely a parameter which arises from 
the manner in which the non-gaussian model is physically interpreted 
(Fig. 13), there is no difficulty in assigning to it this functional 
dependence. The explicit form of the dependence is, of course, unknown. 

Results were computed numerically for R values of 0.0, 0.5, 0,75, 

1.0, 1,33, and 2.0. The first of these ( R = 0.0) corresponds to the 
gaussian turbulence model. The five other cases correspond to the non- 
gaussian model with varying degrees of non-gaussian behavior. 

Results 

Table 3 presents the computed error criteria E - max and e-j^ for the 
various data categories and values of R. Error values for the cumulative 
probability of exceedance and cumulative probability distribution have 
been summed because the same value of R does not necessarily minimize a 
given error criterion for both functions simultaneously. In every case 
the non-gaussian model provides a better fit of the experimental data 
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Table 3. — Goodness-of-fit criteria for various LO-LOCAT 

data categories. 


Category 

Test 

R = 0.0 
Gaussian 

Tur 

i? = 0.5 

bulence M 
i? = 0.76 

odel Pararr 
R = 1.0 

eter 
i? = 1.33 

to 

H 

ro 

o 

111000 

e 

max 

2.5E-1 

2.3E-1 

2.0E-1 

1.6E-1 

1.1E-1 

4.8E-2 

e log 

8.9E 0 

4.5E 0 

2.7E 0 

1.6E 0 

9.3E-1 

3.9E-1 

112000 

e 

max 

1.7E-1 

1.6E-1 

1.3E-1 

1.0E-1 

6.0E-2 

1.0E-1 

£ log 

5. IE 0 

2.5E 0 

1.2E 0 

4.3E-1 

2.8E-1 

5.8E-1 

113000 

e 

max 

1 .2E-1 

1 , 0E- 1 

6.9E-2 

2.5E-2 

4.4E-2 

1.4E-1 

z log 

3.0E 0 

1.4E 0 

3.1E-1 

5.0E-1 

9.8E-1 

1.4E 0 

121000 

e 

max 

2.4E-1 

2.2E-1 

1.9E-1 

1.5E-1 

9.3E-2 

3.1 E— 2 

e log 

8.0E 0 

4.5E 0 

2.8E 0 

2.0E 0 

1.3E 0 

8.2E-1 

122000 

e 

max 

nsi 

1.5E-1 

1.2E-1 

8.0E-2 

4.0E-2 

8.4E-2 

m 


2.3E 0 


6.2E-1 

1.8E-1 

4.0E-1 

123000 


ggj 

6.5E-2 


4.1E-2 

8.1E-2 

1.7E-1 

e log 

mjji 

2. IE 0 

OH 

2.4E-1 

4,9E-1 

8.9E-1 

413000 

z max 

DSI 

9, 2E-2 

6.0E-2 

6,6E-2 

1.1 E-l 

1.9E-1 

e log 


1 ,5E 0 

1.8E-1 

7.3E-1 

1.3E 0 

1 ,8E 0 

414000 

£ 

max 

4.7E-2 

3.2E-2 

2.3E-2 

6.1E-2 

1 ,2E-1 

2.2E-1 

e log 

5, 5E 0 

2.9E 0 

1.5E 0 

7.2E-1 

5,9E-1 

8.4E-1 
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than does the gaussian model, although the best value of R for a given 
data category depends upon the error criterion used. This is especially 
true for those data collected over plains. Note, however, (Table 3) that 
in every case it is possible to choose an R value which simultaneously 
reduces both criteria below their values for the gaussian model. 

Figures 19 and 20 presented on the next several pages compare the 
experimental data with both the indicated best fit models of table 3 and 
the gaussian model. It will be noted that in every case the gaussian 
model underestimates the occurrences of high gust velocities. In general, 
these results and others not presented here indicate that the two criteria 
agree much better for the high mountain data than they do for the plains 
data. 

Table 4 summarizes the values of R which yield the best fit of the 
data for each of the error criteria. These results seem to indicate that 
the parameter R of the turbulence model may be related to the terrain 
and stability parameters of the LO-LOCAT data categories. It appears 
that R increases with atmospheric stability and terrain roughness, but is 
relatively unaffected by altitude. This result, however, cannot be 
verified without a much more careful investigation using more data and 
applying a regression analysis in order to objectively analyze the depen- 
dence of R upon the data parameters. 

i Summary 

This section has presented a comparison of the gaussian and non- 
gaussian models with experimentally measured cumulative probability of 
exceedance and cumulative probability distributions of low altitude 
turbulence. Two simple error criteria have been used to select the best 
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LO-LOCAT data category 111000 



x (m/sec) x (m/sec) 

LO-LOCAT data category 112000 


Figure 19. — Various LO-LOCAT data plotted on both logarithmic and linear 
scales compared with the gaussian model and the non-gaussian 
model selected according to the e best fit criterion. 
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LO-LOCAT data category 113000 





LO-LOCAT data category 121000 


Figure 19 (cont. )--Various LO-LOCAT data plotted on both logarithmic 
and linear scales compared with the gaussian model and the 
non-gaussian model selected according to the best fit criterion. 

uldX 
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LO-LOCAT data category 123000 


Figure 19 (cont. )— Various LO-LOCAT data 
and linear scales compared with the 
non-gaussian model selected according to 


plotted on both logarithmic 

gaussian model and the 

the e „ best fit criterion, 
max 
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L0-L0CAT data category 413000 



LO-LOCAT data category 414000 


Figure 19 (cont. )-- Various LO-LOCAT data plotted on both logarithmic 
and linear scales compared with the gaussian model and the 
non-gaussian model selected according to the e best fit criterion. 
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L0-L0CAT data category 111000 



LO-LOCAT data category 112000 

Figure 20.— Various LO-LOCAT data plotted on both logarithmic and linear 
scales compared with the gaussian model and the non-gaussian 
model selected according to the e-| best fit criterion. 
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LO-LOCAT data category 113000 



LO-LOCAT data category 121000 


Figure 20 (cont. )— ' Various LO-LOCAT data plotted on both logarithmic 
and linear scales compared with the gauss i an model and the 
non-gaussian model selected according to the e-j best fit criterion. 
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L0-L0CAT data category 122000 



LO-LOCAT data category 123000 


Figure 20 (cont. )— Various LO-LOCAT data plotted on both logarithmic 
and linear scales compared with the gaussian model and the 
non-gaussian model selected according to the best fit criterion. 
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L0-L0CAT data category 413000 




LO-LOCAT data category 414000 


Figure 20 (cont. )-- -Various LO-LOCAT data plotted on both logarithmic 
and linear scales compared with the gaussian model and the 
non-gaussian model selected according to the best fit criterion. 
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values of the parameter R which fit the experimental data. Figures 19 
and 20 present the resulting curves. Table 4 lists the values of R 
which minimize the error for each data category. These r values seem to 
exhibit a systematic increase with increasing atmospheric stability and 
terrain roughness. However, this result cannot be verified without a more 
careful analysis. 

The results of this section indicate that the non-gaussian model is 
a better fit of experimental data than the gaussian model, The conclu- 
sion drawn is that the non-gaussian model is a better representation 
of atmospheric turbulence, at least as far as the modeling of distribution 
functions and level crossing frequencies for the purposes of aircraft 
design is concerned. 


Table 4.— Values of the turbulence model parameter R 
which produce best fits of the experimental data. 


Data 

Category 

R which 
Minimizes 

e 

max 

R which 
Minimizes 

z log 

111000 

2.0 

2.0 

112000 

1.33 

1.33 

113000 

1.0 

0.75 

121000 

2.0 

2.0 

122000 

1.33 

1.33 

123000 

0.75 

1.0 

413000 

0.75 

0.75 

414000 

0.75 

1 .33 








CALCULATION OF NON-GAUSSIAN RESPONSE STATISTICS 

The preceding sections of this report have discussed the non-gaussian 
model in detail and shown that its statistics are consistent with those of 
experimentally measured turbulence data. The proposed model is of little 
value, however, if it cannot be used to study vehicle responses to turbu- 
lence. The purpose of this section is to investigate some methods by 
which response statistics of linear vehicles can be found using the non- 
gaussian model. The statistics of particular interest here are: 

1) power spectral density 

2) probability distribution 

3) level crossing frequency. 

The assumptions made regarding the nature of the turbulence are the same 
as those used in defining the non-gaussian model (page 47). The vehicles 
considered in this report will be required to satisfy the following con- 
ditions: 

1) they must be stable linear systems 

2) their transfer functions must have at least two more poles 
than zeros 

3) their transfer functions must be rational 

4) their transfer functions must have no multiple poles. 

Only the first and second of these conditions is absolutely necessary. 

The third and fourth conditions are required because they permit simpli- 
fication of the computer programs which will be used in the next section 
of this report. These two conditions could therefore be removed by 
writing more general programs. 
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The following discussion will first center on some standard tech- 
niques by which the above mentioned statistics might be calculated for 
responses to single components of the non-gaussian model. It will be 
shown that these methods are not entirely suitable for finding probabil- 
ity distributions or level crossing frequencies. Attention will then be 
turned to an approximate method of computing these statistics from the 
eigenvalues and eigenfunctions of a certain unsymmetric kernel. The 
problem of responses caused by two or all three components of the non- 
gaussian model will then be briefly discussed. 


Standard Solution Techniques 

Figure 21 shows the combined turbulence model -vehicle system which 
is to be analyzed. Note that this system is linear throughout with the 
exception of the single multiplication. It is this single nonlinearity 
which creates difficulties in response calculations. Now consider some 
standard techniques by which the three response statistics listed above 
might be computed. 



wide band linear scale 

Gaussian filters factors 

white noise 
sources 


Figure 21. --Block diagram of the turbulence model- 
vehicle system which is to be analyzed in order to 
determine vehicle response statistics. 
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Power Spectral Density 

Since the vehicle is assumed to be a linear system, and since the 
power spectral density of the turbulence time history is assumed known 
(Eq. 4, 5, or 6), the power spectral density of the vehicle response can 
be found from the well known input -output spectral relationship for 
linear systems (Ref. 38), 

^(n) = I H{iUSi)\ 2 ®^(n) , (142) 

where tf(s) is the transfer function relating the input g(t) to the out- 
put v{t) . The calculation of response power spectral densities will 
therefore not present any difficulty, and will not be discussed further 
in this section. 

Response Distribution and Level Crossing Frequency 

The calculation of response distribution functions and level cross- 
ing frequencies provides somewhat more of a challenge than did the power 
spectral density discussed above. Two commonly used techniques are men- 
tioned here as practical methods which may have application in some cases. 

The first method discussed will be simulation. This is the direct 
approach to the problem of calculating response statistics, and may be the 
most convenient method of dealing with the non-gaussian model for many 
applications. Just as the name of this method suggests, the entire turbu- 
lence model -vehicle system is programmed on an analog or digital com- 
puter and the vehicle is "flown" through many miles of turbulence while 
its responses are recorded. After a sufficient amount of data have been 
collected, estimates are made of the response statistics. 
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The simulation method has both advantages and disadvantages. Among 
its advantages is the fact that it can be used to study both linear and 
nonlinear vehicles. It can also be applied to nonstationary problems 
such as the evaluation of control requirements during landing approaches. 
The disadvantage of this method is that it does not readily yield results 
concerning rare events such as encounters with very high velocity gusts. 
The computer time required to estimate these occurrences may be prohib- 
itive. 

The simulation approach to response calculations may thus be a very 
useful technique in some cases, but it is not a convenient method of 
estimating the occurrences of rare events. Thus it will probably not be 
satisfactory when information on the tails of the probability distribu- 
tion or level crossing frequency is sought. 

The second method of computing response statistics is the Gram- 
Charlier expansion. This is a technique for expanding probability den- 
sity functions in an orthogonal series of Hermite polynomials. The 
method can be applied to both one-and two-dimensional density functions, 
and so could be used to obtain the density function of the response, as 
well as the joint density function of the response and its first deriv- 
ative. The first of these is equivalent to the response distribution 
function, and the second can be used (through Eq. 81) to determine the 
response level crossing frequency. This method could, at least in 
principle, be used to obtain the response statistics which are of interest 
here. 

Unfortunately, the Gram - Charlier technique cannot be applied in 
all cases because the coefficients of the expansion become very difficult 
to calculate if more than the first two or three terms are required. 
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Consequently, this method is only useful if a very minimal number of terms 
is needed. Since the first term of the expansion turns out to be the 
gauss ian density function, it follows that the Gram-Charlier technique 
is useful only when the density function being expanded is very nearly 
gaussian. The method also becomes impractical if the tails of the distri- 
bution to be expanded do not decay as rapidly as those of the gaussian 
density function. 

On the basis of preliminary analysis it appears that in many cases 
the non-gaussian turbulence model will produce response density functions 
which require an unreasonable number of terms to converge. Table 5 shows 
the number of terms required to expand the density function of the model 
itself for various values of the parameter R. The shape of these density 
functions can be inferred from figure 15 on page 61. These results make 
it clear that any distribution which differs from gaussian by more than 
a slight degree will not be suitable for analysis by the Gram-Charlier 
technique. 


Table 5.— Number of non-zero terms of Gram-Charlier expansion 
required to represent density functions of the non-gaussian 
model to various accuracies over the range of zero to six 

standard deviations. 


ACCURACY 

.1 

MODEL 

.15 

PA 

1AMETER R 
.2 

.25 

± 10% 

1 

2 


4 

5 

± 20% 

1 

1 


3 

5 

± 50% 

1 

1 


2 

3 
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In the following parts of this section, an expansion method will be 
derived which works best in the case of a strongly non-gaussian response. 
This new method will thus compliment the Gram - Chari ier expansion as a 
suitable technique for finding response statistics. Furthermore, unlike 
the Gram - Charlier technique, it can be shown that this expansion has 
the characteristic of approximating the tails of the distribution very 
well, even when only a few terms are used. 

The Gram - Charlier method will not be discussed further in this 
report. However, references 24 and 46 provide good descriptions of the 
technique and its use in computing one- and two-dimensional density func- 
ti ons. 


Decomposition of Response 

The above remarks have considered two well known methods of dealing 
with system responses to non-gaussian inputs, and pointed to some of the 
shortcomings of each. A method will now be developed which specifically 
treats the response of linear systems to the non-gaussian turbulence 
model. Before beginning the derivation of this new method, however, 
some introductory remarks are in order. 

Consider again the turbulence model -vehicle system of figure 21. 
Since the vehicle is assumed to be linear, the system can be redrawn as 
shown in figure 22. Note that the definition of g(t) in this figure 
differs from that used previously. The process g is now gaussian because 
a gaussian process remains gaussian when passed through a linear filter. 
The process k(t) on the other hand is the result of passing d(t ), which 
has a K a probability density (Fig. 12), through a linear filter. In 
general, the distribution of k(t) is unknown. The total vehicle response. 
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gaussian filters factors 

white noise 
sources 


Figure 22.--Turbul ence model -vehicle system with the 
vehicle response decomposed into gaussian 
and non-gaussian parts. 


r{t), is the sum of g{t) and k(t). Figure 22 has thus shown how the 
response of the vehicle can be decomposed into gaussian and non-gaussian 
parts. 


Approximate Solution for Response Probability 
Distribution Function 

Figure 22 has shown that the vehicle response can be written as a 
sum of independent gaussian and non-gaussian parts. This immediately sug- 
gests the possibility of finding the distribution function of the response 
from its characteristic function. The steps in this procedure are: 

1) find the characteristic function of the gaussian portion 
of the response, <t> 

V 

2) find the characteristic function of the non-gaussian 
portion of the response, <J> 

3) multiply <J> and <j>. to obtain the characteristic tune- 

s' K 

tion of the total response, <|> 
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4) inverse Fourier transform <|> to obtain the density func- 
tion of the response, p . 

The explicit parameter dependence notation used in previous discus- 
sions of characteristic functions and probability distributions will not 
be used in this section in order to simplify notation. The reader should 
be aware, however, that the results obtained here depend upon the param- 
eters of the turbulence model as well as the dynamic characteristics of 
the vehicle. 

As the first step in determining the response distribution func- 
tion, the characteristic function of the gaussian portion of the response 
will be found. Recall the definition of the characteristic function used 
in this report (Eq. 72). For the gaussian portion of the response, the 
result is 

<f> (/) = exp[-2(TT0 f) 2 (l +i? 2 ) " *] . (143) 

if e 

The standard deviation appearing in this expression, o g , can be found 
from the power spectral density of the response, equation 142, This 
completes the first step of the derivation. 

Now consider the characteristic function of k(t). Two very impor- 
tant assumptions will be made concerning this process. It is almost 
certain that neither of these assumptions is necessary in order to obtain 
the results presented here; however, their use will greatly simplify the 
derivation of these results. 

1) It is assumed that negligible error will occur in the response 
statistics if the bandwidth of the white noise sources in 
figure 22 is fixed at some very high but finite limit as 
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shown in figure 23, By virtue of the second assumption 
regarding the vehicle transfer functions, only vehicles 
which act as low pass or band pass filters will be con- 
sidered in this report. Furthermore, the filters used 
in the turbulence model itself (Table 1) are either low 
pass or band pass. Consequently, even when the nonlinear 
nature of the system is taken into account, it is clear 
that it will always be possible to select a value of 
(e.g., 10 10 or lO 100 ) such that the variance of the 
response and its first derivative will not be signifi- 
cantly affected by further increase of the noise band- 
width. In view of this, it is reasonable to expect that 
the response probability distribution and level crossing 
frequency will also be unaffected by increases in band- 
width. 



Figure 23. --Power spectral density of 
band limited gaussian white noise. 


2) It is also assumed that the impulse response functions 
of the filters appearing in figure 22 can be truncated 
at some very large value of their argument, as shown in 
figure 24, without causing significant error in the 
vehicle response. This seems quite reasonable in 
view of the fact that the impulse response functions 
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of the vehicle and the turbulence model filters all 
decay exponentially. If this assumption were not true, 
it would follow that the response of the vehicle 
depended to a significant degree upon the infinite 
past. Thus the response could never reach a state 
of statistical equilibrium, and the assumption of 
stationarity which has been made throughout this report 
would not be valid. 



Figure 24. — Truncated impulse response function. 


SF- 


Once these two assumptions have been made, the eigenvalue expansion of the 
response distribution function follows quickly from a certain theorem due 
to Schmidt which will be stated shortly. 

Consider again figure 22. From linear system theory it follows that 
the response time history k[t) can be written as the iterated integral 


k (t) = TT/rjjj V fi ) h a Wh b {ni\Jt-G-*nT\ b {t-6-nda' , dfd6 . 

^ ^ ^ —00 

, (144) 


Now, because of the first assumption above limiting the bandwidth of 
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r\ a and » it follows (Ref. 47, page 170) that these processes are con- 
tinuous with probability one. The integrand of equation 144 is there- 
fore integrable and, by Fubini's theorem (Ref. 48), the order of integra- 
tion can be freely interchanged. Substitute the change of variables 


a = t - a"* 


\ (145) 


6 = t - 8" J 

and integrate with respect to 6 . The resulting expression for k{t) is 


k(t) = i?(l +i? 2 ) 


- 1/2 


w 

n a (t-a)j | - 6) h(a , 6) cZb| da , (146) 


where the integration with respect to 8 is arbitrarily chosen to be 
performed first, and the kernel h(a , 8) is given by 


h(a , 8 ) 


OO 

h v (6) h a (a- S) 11^8 -$) d6 . 

—CO 


(147) 


Note that for the vertical and lateral components of the turbulence 
model, the impulse response functions h and are not identical, thus 
h(a. , 8) is not generally symmetric. 

As a consequence of the second assumption above concerning truncation 
of the impulse response functions, h[a , 8) is non-zero only if a and 8 
satisfy the condition 

0 < a , 8 ^ t a , (148) 

where tj 2 is the truncation time defined in figure 24, Because 
h( a , 8) is zero whenever a or 8 does not satisfy equation 148, it follows 
that finite limits of integration can be used in equation 146, 
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Now consider Schmidt^s theorem concerning integral equations with 
unsymmetric kernels (Ref, 49, 50). This theorem states that every func- 


tion q having one of the two forms 


q( a) = f ft( a , 8) n(B) dB 

J 

(149) 

£ 


q(B) = | ft(a » B) n(a) da 

(150) 


£ 


where £ is a finite interval, is the sum of its uniformly and absolutely 
convergent Fourier series with respect to the orthonormal system i|> n (a) 
in the first case and with respect to the orthonormal system x^B) in the 
second case. The functions and x n are defined by the eigenfunction 
relationships 


n 


rpj a) = J ft (a , 6) ft(8 , S) cZsJ^(B) d£ 


n 


1 ,2 


(151) 


£ £ 


X 2 
n 


X^B) = • ft(<5 , a) h(6 , B) <iisj X^a) da 


n = 1,2 


(152) 


£ £ 


and are related to each other by the equations 


V« (a) 


■ 

ft(a , 3) j^CB) dB 

J 


« = 1,2 


(153) 


X X (a) = 
n A n 


j ft (a , B) iJ> M (ot) da 
£ 


vl ~~ 1 , 2 , . , , i 


(154) 
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The two sets of functions H> n M and ^(6) are known as the adjoint eigen- 
functions of the kernel h(a ,8), and the constants are said to be the 
eigenvalues of the kernel. 

Schmidt's theorem holds if the following conditions are satisfied: 

1) the functions h(a , &) and h( a , B) 2 are integrable 

2) the integrals / h( a , &) 2 da and I h{ a ,6 ) 2 d$ are bounded 

3) the functions n and n 2 are integrable. 

All three of these conditions are satisfied for the inner integral of 
equation 146. The first and second conditions will always be satisfied 
by the well behaved linear systems of this report. The third condition 
is satisfied because of the bandlimited nature of the white noise func- 
tions (Ref. 47, page 170). 

The set of eigenvalues A n is assumed to be ordered according to 
decreasing magnitude. It is also necessary that they satisfy Bessel's 
inequal ity , 

00 

I 

n=l 

Schmidt's theorem will be applied to the inner integral of equation 
146. Before doing so, however, it is useful to make the following obser- 
vation. Note that equation 146 expresses k as a function of time. Since 
k is a stationary process however, its statistical properties cannot 
depend upon the time at which they are evaluated. Thus, for the purposes 
of calculating the probability distribution and level crossing frequency 
of k{t) , it must be permissible to fix t at any desired value. The value 
chosen in this report is zero. Therefore, upon taking equation 148 into 
account, equation 146 can be written 


2 < 


n 


■ 

h [ a , B) : 
J 


dad& 


(155) 
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t t Q 

k(0) = i?(l + i? 2 } " 1/2 | n a (-ot)jj - 8) Ha » 3) <28 j<2a . (156) 


This Is the equation to which Schmidt's theorem will be applied. 

According to the theorem, the bracketed integral of equation 156 
can be expressed as an absolutely and uniformly convergent series. 



h[8 , 8) n fc ( - B) 4» n (S) <38^5 . 


(157) 


All functions are continuous on [0 , * ], so the order of integration 
can be interchanged and integration with respect to 6 carried out first. 
By equation 154, the result is 



n=l 


X (a) 
n n 


n fc ( - 3) x„(3) d& . 

o 


(158) 


Equation 158 can be substituted into equation 156 and, because the series 
is absolutely and uniformly convergent, integration with respect to a 
can be carried out term by term. The result is 


k( 0) = i?(l + i? 2 ) " 1/2 l X A B , 
' ' ' L n n n n 

n=l 

where * 

A „ = ] "„<• “> 

0 

t 

B n = j n i (-e)x n (e)^3 • 

o 


(159) 

(160) 
(161) 


A 
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and B n are random variables with the following properties 

1) A n and B n are normally distributed because they are 
linear transformations of gaussian processes. 

2) The mean value of each A and B is zero. 

n n 

3) All A are independent of all B because n is 

n n a 

independent of • 

4) For all n and m the correlation of A with A and 

n m 

B with B is given by 
n m 

t 

a 

E ^ A n A rn = { C r\ r^ a " ^ *** ^ O 62 ) 

o a a 

t 

c 

E!B A } ■ II c nj^ a ■ e) *“* (163) 

0 

where C and C are the correlation functions of n and ru 

Wb a b 

respectively. 

At this point a further approximation is introduced. Equation 159 
expresses the non-gauss i an portion of the vehicle response at an arbi- 
trary instant {t = 0) as an infinite summation of random variables. In 
order to apply this equation to the practical evaluation of the response 
density function, it is going to be necessary to evaluate the eigenvalues, 
X n . Clearly it is unreasonable to expect to be able to evaluate more 
than the first few of these. Consequently , if equation 159 is to be of 
any practical use, it will be necessary that only the first few terms of 
the series be significant. Results to be derived shortly will show that 
the variance of the random variables A and B n is approximately unity. 



121 


and therefore the terms of equation 159 will decrease rapidly only if 
the eigenvalues decrease very rapidly. It will be assumed that this is 
the case. 

Should this assumption prove invalid for some particular vehicle, it 
would follow that k could be represented by a summation of random variables 
with variances of comparable magnitude. These variables would be indepen- 
dent; and, though not identically distributed, it would not be unreason- 
able to expect that their sum would be nearly gaussian. In such a case 
the vehicle response would be almost gaussian, and the Graham - Chari ier 
expansion mentioned earlier in this section would be a promising method 
of approach. 

Under the assumption that only a few terms of the expansion are 
required to adequately represent k , equation 159 becomes 

- 1/2 N 

k(0) = i?(l+i? 2 ) 1/2 l \A n B n . (164) 

This assumption will also permit it to be shown that the random variables 
A n and B n can be considered independent and (0,1) normal. 

Consider the correlation of A with A , equation 162. The correla- 

n m 

tion function of n can be written as the Fourier transform of its power 

a 

spectral density. Noting the form of $ shown in figure 22, and using 

^cra 

the transformation presented in equation 38, this relationship becomes 

C (t) = f exp(£ UQ, t) d£l (165) 

-a 


Substitution of this result into equation 162 and interchange of the order 
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of integration gives 


% t a t a 

E{A n A m } = J { J ^ n (a) exp(f yfia)daj| J ^(B) exp( - i UQ 8 ) <3b} d£i 
-S2 0 0 


( 166 ) 


where it is assumed that \b and w are zero outside of the interval 

r n T m 

[0 , * ] . The bracketed terms of equation 166 can be identified as the 

Fourier transform of m and iij . 

Y n T m 

Inspection of the kernel defined in equation 147 will now show that 
k( a . B) is zero if either a or g is zero, but h{t , b) and h( a , t ) 
are not necessarily zero. It follows therefore from equation 151 that 
ip n (0) is equal to zero, but ^(tj is not necessarily zero. Thus 4> n (a) 
and ,i> ( 6 ) in equation 166 are continuous everywhere except possibly at 

the points a and a equal to t . At these points, ^ and $ may exhibit 

" a T n tn 

a simple step discontinuity. The theory of Fourier transforms (Ref. 51) 
then requires that the absolute value of the Fourier transforms appear- 
ing in equation 166 must decrease at least as rapidly as q ~ 1 for large 
jj. The product of transforms must therefore decrease at least as rapidly 
as q~ 2 . Thus, for all possible combinations of the indices n and m 
bounded by y, it must be possible to choose a single, finite value of 

n such that e{A A } differs arbitrarily little from equation 166 with 
a n m 

n replaced by infinity Equation 166 therefore reduces to 

o 


E{A A } = 
n m 


$ n (a) ip m (a) da 


( 167 ) 


Since the functions ^ and \p are orthonormal, it follows that 

n n 
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if n 

E{A A } i { 

n m <~0 if n 


1 if n = m 
f m 


068 ) 


A completely analogous result holds for equation 163. 

Equation 168, along with the other properties of A and B listed 
previously, implies that the A n and or equation 164 can be assumed to 
be independent normal random variables with zero mean value and unit 
variance. It has been shown previously in this report that the product 
of independent gaussian random variables has a k 0 probability distribu- 
tion (Eq. 70). Hence, each term of equation 164 is a random variable 
with a density function of the form 


p {x) = K 0 

r n ' -rra 
n 


UE 


l 


n 


~z J n = 1,2,,.. ,N , 


(169) 


where 


a 2 = E{{R X A B ) 2 (1 +i? 2 ) " X } = (i?A ) 2 (1 +E 2 ) " 1 , (170) 

n n n n ' ' n 

The reader will now recall that the object of all this is to obtain 
an approximate expression for the characteristic function of the non- 
gaussian portion of the vehicle response. It has just been shown that 
this response can be represented as a finite summation of independent 
random variables; therefore, the characteristic function in question must 
be given by a product of characteristic functions , one for each term of 
equation 164, It follows from equations 73, 169, and 170 that each term 
of this product is of the form 
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$„(/)= [1 + (27Ti?X n /) 2 (l +R Z ) "V 1/2 , (171) 

and the characteristic function of k is 

= n [1 + (2 tt 7? A f) 2 (l +i? 2 ) ”'] " 1/2 . (172) 

This completes the second step of the response density function deriva- 
tion. 

The characteristic function of the total vehicle response is now 
obtained by multiplying equations 143 and 172. 

N 

= exp[ - 2(ir a /) 2 (1 +i? 2 ) " *] n [1 + (27ri? X f) 2 (l +i? 2 ) " '] " 1/2 

n=l 

(173) 

This completes the third step of the derivation. The density function 
of r can now be found by numerically Fourier transforming equation 173. 
Program PDIST presented in Appendix A of this report performs this calcu- 
lation. 

Computer programs EIGU and EIGVW, which will also be found in 
Appendix A can be used to obtain the eigenfunctions and eigenvalues of 
the vehicle response to the longitudinal gust component and to the 
lateral and vertical gust components respectively. Note from equations 
151 and 152 that, since the function h[ a , 8) is symmetric for the longi- 
tudinal gust case, the orthonormal sets and will be identical. Thus 
program EIGU computes only one set of eigenfunctions. The eigenvalues 
obtained from either EIGU or EIGVW can then be used in program PDIST to 
obtain the probability density and distribution function of the vehicle 
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response. The next section of this report will present a numerical 
example showing the application of these programs. 

Approximate Solution for Response Level 
Crossing Frequency 

Recall from equation 81 that the level crossing frequency of a 
stochastic process can be found from a knowledge of the joint distribu- 
tion of the process and its derivative. 


N 


,(*) = | xp p ^(x s x) dx 


(174) 


The reader should note that the explicit parameter dependence nota- 
tion used in earlier sections of this report is not used here in order 
to simplify notation. The results presented here will, of course, 
depend upon the parameters of the turbulence model as well as the dynamic 
characteristics of the vehicle. 

Previously in this section it was shown that the distribution func- 
tion of the response could be approximated by means of a characteristic 
function approach. It will now be shown that the joint distribution of 
the response and its derivative can be approximated by an analogous 
procedure. The steps to be followed are: 

1) obtain the joint characteristic function of the 
gaussian portion of the response and its derlv- 
ative. 

2) obtain the joint characteristic function of the 
non-gauss ian portion of the response and its 
derivative, <J>^ £ 


a 
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3) multiply these results to obtain the joint character- 
istic function of the complete response and Its 
derivative, <j> p ^ 

4) inverse Fourier transform to obtain the joint density 
of the response and its derivative, p p ^ 

5) apply equation 174 to obtain the level crossing frequency 
of the response, N (x) . 

p 

Refer to figure 22 and note that the derivative of the response can be 
obtained by merely replacing the vehicle transfer function ff y (s) with 
sH v {e). 

The joint characteristic function of the gaussian portion of the 
response and its derivative can be found immediately. 

<f> *(/i ^ fi) = exp{ - 2(1 +R 2 ) 1 [(tto /i) 2 + (ira*/ 2 ) 2 ]} (175) 

y j y » t? 

where the standard deviations can be obtained from the power spectral 
density of e{t). This completes the first step of the derivation. 

The joint characteristic function of k and 7c will now be approxi- 
mated by extending the results obtained above for the characteristic 
function of k alone. By equation 164, k can be represented as a finite 
summation of random variables. 

7c(0) = i?(l +i? 2 ) " 1/2 l \ n A n B n (176) 

n=l 

It will now be assumed that a similar approximation applies to k , 


i ii i 
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H 0) = 7?(1 + i? 2 ) 


1/2 


M 

l A C D 
u ~ m m m 
m=l 


077) 


where are the eigenvalues of the kernel analogous to h[ a , 8) of equa- 
tion 147; and C , D are (0,1) normal, independent random variables. 

« 

The adjoint eigenfunctions of the k kernel are assumed to be ^(ex) and 

s 

X (3). It is further assumed that the noise bandwidths, of figure 23, 
m a 

and the impulse response truncation times, tj 2 of figures 24, are iden- 
tical for both k and k. 

Now even though all of the random variables A and B are mutually 

nn 

independent, and all of the random variables and are mutually 

independent, it is readily verified that the variables A n are correlated 

with the variables C and likewise for the variables B and D . These 

m n m 

correlations can be shown to be 


EU C J 

n m 


<P n (a) Y m (a) da 


(178) 


t 

- f X„(6)VS)ie . (179) 

0 

In order to derive an approximate expression for the joint characteristic 
function of k and k it is convenient to introduce the following notation. 

1= [A 1 A 2 ,.,,A n C 1 C 2 .... C M f (180) 


B = [B l B 2 , , , 




V 


• 1 • « 


081 ) 
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A = 

082) 

s = e{bb t ) 

(183) 


Since the elements of A are independent of those in B , it follows that 
the joint density of all the random variables in both A and B is given by 


v a 3 b y } = p )Pg (y ) » 

where 


M+N 

p j( x ) = [(2ir) 2 det( A )] “ 1 exp[ - ar 2 ’(|-4“ 1 ):c] , 


(184) 


(185) 


and a similar expression applies to p — . The joint characteristic func- 
tion of k and k is defined to be 

4>^£(/i,/ 2 ) = (186) 

Substitution for k and k from equations 176 and 177 gives 

»/ 2 ) = E{exp{A T CB )} (187) 

where 

C = i27ri?(l +i? 2 ) ” 1/2 Id1ag(/’ i \ A x A tf )] . 

( 188 ) 

The joint characteristic function <f>^ £ can now be written in the inte- 
gral form 
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00 00 

= | [2(Af + ff)] J exp (x T C'y)pj{x)pj{y)dxdy , 

: ’ ~~ (189) 

This expression can be integrated numerically to obtain the value of 
<j>k • for any choice of and f 2 . This completes the second step of the 
derivation. 

The third, fourth, and fifth steps of the derivation are carried out 
by multiplying equations 175 and 189, applying a two-dimensional Fourier 
transform, and then integrating as indicated in equation 174, Program 
RLEVX, presented in Appendix A of this report performs all of the 
computations described here including the evaluation of the covariance 
matrices, equations 182 and 183. Use of this program in connection with 
the eigensolution programs EIGU and EIGVW as shown in the next section 
of this report thus provides an automated method of computing the level 
crossing frequency of a linear response to the non-gaussian turbulence 
model. This completes the discussion of the level crossing problem. 

Response to Multiple Inputs 

The above remarks have all dealt with the case of a single component 
of the turbulence model. Because the three components of the model are 
independent processes, however, these results can be easily extended to 
include the case of a vehicle disturbed simultaneously by two or all 
three gust components. 

Recall that the three quantities of interest are the response power 
spectral density, distribution function, and level crossing frequency. 

The power spectral density of a linear response to several independent 
inputs is merely the sum of the spectral densities due to each input 
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alone. Equation 142 can therefore be used to calculate a power spectrum 
for the response to each gust component and the total response power 
spectrum found by summing. 

The distribution function of the response to multiple inputs can be 
found through its characteristic function, Since the response to each 
gust component is an independent process, the characteristic function of 
the total response will merely be the product of the characteristic func- 
tions corresponding to each component. Thus equation 173 could be used 
to find the characteristic function of the response to each component of 
the turbulence model, and the characteristic function of the total res- 
ponse found by multiplying. This product could then be Fourier trans- 
formed to yield the required distribution function. 

A similar argument applies to the determination of response level 
crossings. In this case it is the joint characteristic function of the 
total response and its derivative which are found by multiplying the 
joint characteristic functions corresponding to each gust component 
alone. The joint density of the response and its derivative are then 
obtained by Fourier transforming, and equation 174 is used to calculate 
the level crossing frequency. 


Summary 

This section has investigated the response of a linear vehicle to 
the proposed non-gaussian turbulence model. An expression for the power 
spectral density of the response has been presented (Eq. 142), and 
approximate numerical procedures have been suggested for computing the 
response distribution function (Eq, 143 through 173) and level crossing 
frequency (Eq. 174 through 189). Finally, the problem of calculating 
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response statistics Induced by simultaneous gust components has been 
briefly discussed. In the next section of this report* the techniques 
developed above will be used to calculate the responses of an aircraft - 
autopilot system to the non-gausslan model. 



NUMERICAL EXAMPLE 


The previous section of this report has derived techniques which can 
be used to calculate the power spectral density, probability distribution, 
and level crossing frequency of a linear response to the proposed non- 
gaussian turbulence f model. The purpose of this section is to illustrate 
the application of these techniques to a simple problem, and to compare 
the results with those obtained using the gaussian model. The computer 
programs mentioned will be found in Appendix A of this report. 

Problem Statement 

The aircraft to be studied is a STOL vehicle in cruising flight. 
Altitude is controled by a simple autopilot system using altitude error, 
its integral, and its derivative in a feedback loop driving the elevator 
so as to return the aircraft to the commanded altitude. 

It is supposed that this aircraft - autopilot system is perturbed by 
the vertical component of the non-gaussian model, and it is desired to 
investigate the deviations from the commanded cruise altitude which the 
system experiences. The power spectral density, probability distribution, 
and level crossing frequency of the altitude error are to be calculated. 

Model of the Vehicle 

As mentioned above, the aircraft considered here is a STOL vehicle 
in cruising flight. The commanded altitude is 305 meters (1,000 feet) 

I 

above sea level, and the true airspeed in equilibrium flight is 76 meters 
per second (249.7 feet per second). The transfer function of the alti- 
tude error due to vertical gust disturbances for this particular 
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aircraft - autopilot system is 


40,92 [s] [s + ( .0363 ± ,2083i)] [s + 2,912] 

[s+ (.0443 ± .013U)] [s+ (.3035 ± .2908i)] [s + (2.112 ± 2.404f)] 

(190) 


where the notation [s + (a±£2>)] has been used to indicate complex con- 
jugate pairs of poles or zeros. Note that this transfer function satis- 
fies all of the conditions stated at the beginning of the previous 
section (page 106). The derivative of the altitude error is 


I (*)-«£(*>• (191) 

In order to apply the computer programs presented in the appendix 
of this report, it will be necessary to express these two transfer 
functions in partial fraction form. 


[ - 1 .946 ± 5. 538i] [ - 4.016 ± 8.026?:] 

+ 

[s + (.0443 ± .0131?:)] [s + (.03035 ± ,2908i)] 

[5.964 + 4.816?:] 

+ 

[s + (2.112 ± 2,404?;)] 


(192) 


z_ 

w 


(a) 


[,158 + .220?:] [3,552 + 1 ,268i] 

— + 

[s + (.0443 ± .0131?:)] [s + ( .3035 ± ,2908i)] 


[24.18 + 4,164iJ 
+ 


(193) 


h 


[s + (2,112 ± 2.404?:)] 
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Turbulence Model Parameters 

The turbulence model used here is the vertical component of the 
non-gaussian model. The parameters of the model are chosen to be 


L = 142 m (465 ft) 
w 


a, = 0.305 m/sec (1 ft/sec) 

w 


(194) 


i?, - 1.0 . 

w 


These parameters are typical of those which would be encountered at an 
altitude of 228 meters (750 feet) over plains in unstable atmospheric 
conditions. With this choice of a and , the power spectral density 
of the turbulence becomes 


(1 + 60,500 fi 2 ) 

*,„(n) = 2.10 . (195) 

W (1 + 20,200 ft 2 ) 2 

The probability density and distribution functions of the gust velocity 
will be found in figure 15 on page 61, and the normalized level crossing 
frequency is given in figure 17 on page 80, 

Response Power Spectral Density 

The power spectral density of the altitude error is obtained by sub- 
stituting equations 190 and 195 into equation 142. Figure 25 presents 
the resulting spectrum for positive values of n. The complete spectrum 
is, of course, symmetric about the origin. The variance of the altitude 
error can be calculated by integrating the power spectral density as 
indicated in equation 7. The result is 
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a v z = 13.26 (m) 2 [142.8 (ft) 2 ] (196) 

Note that the power spectral density and variance are independent of the 
turbulence model parameter i?. 



Figure 25. --Power spectral density of the 
altitude error. 


Response Distribution Function 

The probability distribution of the altitude error will now be cal- 
culated. This computation is in two parts, 

1) use program EIGVW to compute the significant eigenvalues 
of the response 

2) use these eigenvalues as input to program PDIST to obtain 
the response probability distribution function. 

The first step of the procedure is the calculation of the altitude error 
eigensolutions. The transfer function of the system (Eq. 192) and the 
turbulence model parameters (Eq, 194), when used as input to program 
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EIGVW, result in the eigenvalues and adjoint eigenfunctions presented in 
figure 26. Note that program EIGVW cannot compute the eigenvalues with- 
out also computing the corresponding adjoint eigenfunctions. 



Figure 26. --Adjoint eigenfunctions and eigen- 
values of the altitude error. 


The second step in computing the response distribution is the use of 
the eigenvalues of figure 26 as input to program PDIST. This program has 
computed the probability density and distribution functions presented in 
figure 27. (Although used as input to PDIST, the eigenvalues of the 
response were not actually used in computing the gaussian distribution. 


137 


In fact, the gaussian result is merely the well known normal distribution 
which could be evaluated without the use of a computer 


non-gaussian 
model (i? = 1 ) 


0 p = 3.64 (m) 

3 .3048 (m/sec) 

. w 



X 

a 


gaussian 

model 


1 2 3 

altitude error 
Altitude error. 



Figure 27. — Probability density and distribution functions of the 
altitude error in response to both gaussian 
and non-gaussian turbulence models. 


Note that the non-gaussian model predicts that the occurrence of 
large altitude errors will occupy a much greater percentege of time than 
indicated by the gaussian model. For example, the computed values of 
the gaussian and non-gaussian distribution functions for a response mag- 
nitude of 3.5 a are 0.99977 and 0.99860 respectively. These numbers 
imply that the absolute value of the altitude error predicted by the 
gaussian model will exceed 3.5 about 0.05% of the total flight time 
while the error predicted by the non-gaussian model will exceed this 
level about 0.28% of the time. These predictions differ by more than a 
factor of five. 
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Response Level Crossing Frequency 

Consider now the level crossing frequency of the response. This 
calculation is in three parts, 

1) compute the significant eigenvalues and eigenfunctions 
of the altitude error by means of program EIGVW 

2) compute the significant eigenvalues and eigenfunctions of 
the altitude error derivative by means of program EIGVW 

3) use the results of the first two steps as input to program 
RLEVX and obtain the level crossing frequency of the 
altitude error. 

The eigensolutions of the altitude error have already been calcu- 
lated, and are presented in figure 26. The eigensolutions of the alti- 
tude error derivative can be calculated using equations 193 and 194 as 
input data to program EIGVW. The results are presented in figure 28. 



Figure 28. --Adjoint eigenfunctions and 
eigenvalues of the altitude 
error time derivative. 
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All of these eigenvalues and eigenfunctions (Figs. 26 and 28) are 
now used with program RLEVX to compute the level crossing frequency curves 
presented in figure 29. It should be noted that the gaussian result 



x r altitude error 
a r L a altitude error 


Figure 29. — Level crossing frequency of the 
altitude error in response to both 
gaussian and non-gaussian turbulence models. 

follows directly from Rice's equation (Eq. 12), and could have been 

obtained without use of a computer. 

Note that the non-gaussian model predicts that large altitude errors 
will occur much more frequently than indicated by the gaussian model. 

For example, the crossing frequencies of the 4 response level predic- 
ted by the gaussian and non-gaussian models are 4.274 xlO -7 and 7.116x10 
crossings per meter respectively. The gaussian value implies that the 
4 a level will be exceeded once every 2,340 kilometers, while the non- 
gaussian value implies that this level will be exceeded once every 141 
kilometers. These results differ by a factor of almost 17. Furthermore, 
the ratio of the two results increases rapidly with increasing response 
magnitude. At the 5a^ level they differ by a factor of well over 100. 



CONCLUSIONS AND SUGGESTIONS FOR FURTHER RESEARCH 

The previous sections of this report have developed a new model of 
atmospheric turbulence which is proposed for use in aircraft design work. 
In this section, the principal conclusions are summarized and some areas 
requiring further investigation are discussed. 

Principal Conclusions 

This report has reviewed the problem of modeling continuous atmos- 
pheric turbulence for the purposes of aircraft design. The model now in 
wide use; which assumes turbulence to be a homogeneous, stationary gaus- 
sian process with a specified power spectral density; has been discussed 
and its properties compared with experimentally measured characteristics 
of atmospheric turbulence. This comparison has shown that the gaussian 
model does not properly reproduce the number of high velocity gusts which 
are encountered in the atmosphere. Neither can it properly model the 
observed patchy character of turbulence or the experimentally measured 
distributions of velocity increments. 

A modified form of the gaussian model, the gaussian patch model, has 
also been considered. This model is similar to the gaussian model, but 
assumes large regions of turbulence to be composed of independent patches 
which are homogeneous, stationary, and gaussian. The intensity of the 
turbulence varies randomly from patch to patch, but is assumed constant 
within each patch. The patch size is assumed to be sufficiently great 
that transient effects between patches can be neglected. It has been 
shown that this model cannot reproduce the distributions of velocity 
increments measured in turbulence. Furthermore, experimental measurement 
of patch sizes implied by this model has shown that the most intense 
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patches are so short (on the order of 2-3 km) that in many cases the 
neglect of transient effects between patches cannot be justified. 

A non-gaussian model of turbulence has been proposed. This model has 
been formulated from the idea of representing the patchy character of tur- 
bulence by a product of independent gaussian processes. The new model can 
be viewed as an extended or generalized form of the gaussian model, and 
the gaussian model is included as a special case. 

The statistical properties of the proposed model have been derived 
and compared with some experimentally measured properties of low altitude 
atmospheric turbulence. The results have shown that the power spectral 
densities, probability distributions, and level crossing frequencies 
observed in the atmosphere can be modeled quite well. However, it has 
also been shown that this model, like the gaussian and gaussian patch 
models, does not reproduce the velocity increment distributions of turbu- 
lence. The reason for this difficulty has been discussed and a modifi- 
cation of the model has been suggested which may correct the problem. 

Until a solution is found, it is suggested that the proposed model (as 
well as the gaussian and gaussian patch models discussed above) is not a 
good representation of the high frequency components of turbulence. 

Hence, these models are probabily not suitable for studies of high 
frequency vehicle responses such as those involving structural modes. 

Methods by which the non-gaussian model can be used to calculate 
vehicle response statistics have been investigated and techniques for 
computing the power spectral density, probability distribution, and level 
crossing frequency of linear responses to the model have been developed. 
These results have shown that the response power spectral density can be 
obtained by the usual methods of linear system theory, and therefore 
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calculated without difficulty. Evaluation of response probability dis- 
tributions and level crossing frequencies, on the other hand, has required 
calculation of the eigenfunctions and eigenvalues of a certain kernel 
function which is, in general, unsymmetric. Computer programs presented 
in Appendix A of this report have been developed as a means of automating 
these calculations. 

The altitude response statistics of a simple, linear, STOL 
aircraft - autopilot system subjected to the vertical component of the 
non-gaussian model have been calculated. The results have shown that, 
compared to the gaussian model, the non-gaussian model model may predict 
more than a hundredfold increase in the occurences of large response 
magnitudes. 


Suggestions for Further Research 

The turbulence model and application methods developed in this 
report can be considered as only the first step in producing a practical 
tool for use in aircraft design work. Additional research in several 
areas will be required if this goal is ever to be attained. The follow- 
ing is a list of several areas which the author believes to be topics of 
useful research regarding this turbulence model. 

Improved Data Fitting Procedures 

It has been shown that the LO-LOCAT data presented in this report 
can apparently be fit better by the non-gaussian turbulence model than 
by the currently used gaussian model. The results of Table 4, however, 
indicates that it is important to choose the correct goodness-of-fit cri- 
terion if satisfactory results are to be obtained. Thus some rational 
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prodedure for obtaining the best over-all fit of the data must be found. 

This procedure would have application not only to the non-gaussian turbu- 
lence model described here, but also to any other turbulence models which 
might be proposed in the future. 

Relationship of the Non-gaussian Model to Meteorological Parameters 

The proposed non-gaussian turbulence model contains a parameter 
which controls its probability distribution and level crossing frequency. 
Results presented previously in this report (Table 4) indicate that the 
value of this parameter which leads to the best fit of experimental turbu- 
lence data depends, at least partially, on variables such as atmospheric 
stability, surface roughness, and height above the surface. It should be 
possible to carry out a regression analysis to determine the relationship 
between these variables and the parameter. In order to be of practical 
value, this analysis will have to consider much more data than used in 
the present report. 

Improved Mathematical Development 

The results derived in this report have relied very heavily upon 
heuristic assumptions such as the use of band limited white noise and 
truncated impulse response functions. These assumptions can surely be 
relaxed in a rigorous treatment. Although increased rigor would not be 
expected to alter any of the results which have been presented, it would 
almost certainly lead to a better understanding of the non-gaussian model 
and a greater appreciation of its limitations. 

An especially useful result of such an investigation might be a 
rapid procedure for obtaining approximate solutions for response statistics. 
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It Is intuitively obvious, and easy to show from the development of equa- 
tions 144 through 189, that the vehicle response statistics become iden- 
tical to the statistics of the turbulence as the bandwidth of the vehicle 
transfer function becomes infinitely wide with respect to the bandwidth 
of the turbulence. On the other hand, as the vehicle bandwidth becomes 
indefinitely narrow with respect to that of the turbulence, the Gerschgorin 
Circle Theorem concerning upper bounds of eigenvalues (Ref. 49) requires 
that the non-gaussian portion of the vehicle response become the sum of 
an infinite number of independent, identically distributed random vari- 
ables. Hence, the Central Limit Theorem (Ref. 37) requires that this 
response become gaussian, and therefore the total response of the vehicle 
will become gaussian. It would be extremely useful to develop a method 
for estimating (or at least bounding) response statistics for the case of 
intermediate bandwidth vehicles. 

Extensions of the Model 

Several possible improvements of the turbulence model proposed in 
this report merit further investigation. 

1) Reference 45 has suggested the possibility of defining a 
patchiness parameter for the non-gaussian model. It 
would be interesting to see if this parameter could be 
related to meteorological variables of turbulence, and 

if this parameter has any significant effect upon response 
statistics. 

2) Nothing in the mathematical development presented here 
has prohibited the use of linear filters with irrational 
transfer functions in the turbulence model. This 



145 


suggests the possibility of using such filters to 
obtain the von Karman power spectral densities rather 
than the Dryden spectra assumed in the present report. 

3) The present results are concerned only with a "point" 
model of turbulence, that is, the turbulence field is 
represented by three orthogonal gust components which 
are assumed to act at the vehicle center of gravity. 
Turbulence, however, is a distributed phenomenon; and 
for large aircraft it is important to take into 
account the distribution of the gust field over the 
surface of the vehicle. It appears that the spatial 
distribution representation used in reference 34 can, 
in principal, be incorporated into the non-gaussian 
model of this report without difficulty. This could be 
accomplished by adding an independent rolling gust compo- 
nent to the present model and using the vertical and 
lateral gust components of the present model in con- 
junction with an appropriate time delay to represent 
gusts occuring at the vehicle tail. Unfortunately, 
the computational procedures required to calculate 
vehicle responses to this model would become very 
unwieldy because it v/ould be necessary to consider 
correlated inputs to the system rather than indepen- 
dent inputs as assumed in this report. Thus, either 
a different approach to the spatial distribution prob- 
lem will have to be found, or the computational proced- 
ures will have to be greatly speeded. 
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4) It has been shown that the velocity increment distri- 
bution of the non-gaussian model do not match those 
observed in the atmosphere. As discussed previously 
in this report (page 84), it appears that this prob- 
lem might be corrected by modifying the transfer 
functions used in the model. 
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APPENDIX A 


COMPUTER PROGRAMS 

The purpose of this appendix is to present a number of computer pro- 
grams which are of use in working with the non-gaussian model, and to 
give examples of their use. Programs to be presented are: 

1. PDIST - a program to compute probability distributions of 
either the non-gaussian model or vehicle responses to the 
model 

2. LEVXNG - a program to compute universal level crossing 
frequency curves for the non-gaussian model 

3. INCPD - a program to compute probability distributions 
of the non-gaussian model velocity increments 

4. EIGU - a program to compute eigenvalues and eigen- 
functions of vehicle responses to the longitudinal com- 
ponent of the non-gaussian model 

5. EIGVW - a program to compute eigenvalues and adjoint 
eigenfunctions of vehicle responses to the vertical or 
lateral components of the non-gaussian model 

6. RLEVX - a program to compute level crossing frequency 
curves of vehicle responses to the non-gaussian model. 

Listings of all programs and subroutines will be found at the end of this 
appendix. All coding is in FORTRAN language, version 2.3 for Control 
Data 6000 Series Computer Systems. Modifications required for compatibil- 
ity with other systems should be slight. 

The sample programs to be presented here were run on the University 
of Washington CDC-6400 computer using the U of W version of the Control 
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Data RUN compiler, and the SCOPE 3,4 operating system. Storage require- 
ments and execution times reflect this operating environment. 

Numerous comment cards have been incorporated into each of the card 
decks presented here as an aid in understanding their operation. The 
input data required by each program is also described by comment cards. 


Program PDIST 

PDIST is a program which computes probability distributions for both 
the non-gaussian turbulence model and vehicle responses to the model. 

The example presented here calculates the probability distribution of 
the model for an i? parameter value of 1.0. 

Card Decks 

The following card decks were required to produce the sample calcu- 
lation presented here: 

PDIST 

FFT 

FFTRS 

Input Data 

The following five data cards were used in producing this example. 
The meaning and format of these cards are explained by comments in the 
listing of program PDIST. 


1 

11 

21 

31 


51 

61 

TEST OF PC 

1ST, PROHA 

BILITY OIS 

TRIBUTION 

OF NON-GAU 

SSI AN NODE 

L FOR R PA 

1.0001 

000008E*00 






1.0000 

0000 0 0E *00 






1.0 
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Results 

The above named card decks were compiled, loaded, and executed on 
the University of Washington CDC-6400 computer system. Storage require- 
ment including I/O buffers and all system programs was 16,406 8 words. 
Execution, including compilation and loading, required 3 i0 seconds of 
central processor time. The following output was generated. 


TEST OF POIST , PROBABILITY DISTRIBUTION OF NON-GAUSSIAN MODEL FOR R PARAM. * 1.0 
VARIANCE = 1.00000 

NUMBER OF NON-GAUSSIAN EIGENVALUES *1 
EIGENVALUES ARE • 

1.03000000E+00 

SIGMA RATIO OF TURBULENCE MOOEL = 1.00000 

SUM OF EIGENVALUES SQUARED * 1.0000000E»00 

FOR VARIANCE OF 1.0000000E»00 
NON-GAUSSIAN VARIANCE = 5. 0 00 COO 0E-01 

GAUSSIAN VARIANCE INCLUDING CORRECTION FOR 
NEGLECTED EIGENVALUES = 5.000COOOE-01 

FOR TOTAL VARIANCE OF UNITY 
NON-GAUSSIAN VARIANCE = 5.0C0Q0QQE-01 

GAUSSIAN VARIANCE INCLUOING CORRECTION FOR 
NEGLECTED EIGENVALUES = 5. 0 00003 OE-Ol 

SQUARED EIGENVALUES SCALED TC GIVE CORRECT NON-GAUSSIAN 
CONTRIBUTION TO UNIT VARIANCE! 

5.0000000E-01 
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TEST OF POIST, PROS ABILITY DISTRIBUTION OF NON-GAUSSIAN MODEL FOR R PARAH. * 1.1 


NORMALIZED 

STOI7ED 

DISTRIBUTION 

UNNORM ALIZEO 

NONSTDIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGNA X 

OENSITY 


X 

OENSITY 

0. COO 

4.455E-01 

5.COOOOE-01 

0. 

4.4556-01 

.050 

4.447E-01 

5.22262E-01 

5.0006-02 

4.447E- 01 

.100 

4.423E-01 

5. 444456-01 

1. 000E-01 

4.423E-01 

.150 

4.334E-01 

5. 664696-01 

1 . 5006-01 

4.384E-01 

• 200 

4.330E-01 

5.682606-01 

2.0006-01 

4.33CE-01 

.250 

4.261E-01 

6.097416-01 

2.5006-01 

4.2616-01 

.300 

4.178E-01 

6.30 644E-01 

3 .00 06-01 

4. 1786-01 

.350 

4.083E-01 

6.51503E-01 

3 . 500E-01 

4.0 83E-01 

.400 

3. 9766-01 

6. 71656E-01 

4. 0006-01 

3.9766-01 

.450 

3.85 9E-01 

6. 512496-01 

4.50CE-01 

3.8596-01 

.500 

3. 733E-01 

7.10231E-01 

5.0006-01 

3.733E-01 

.550 

3. 598E-01 

7.285616-01 

5.50CE-01 

3.598E-01 

.600 

3.457E-01 

7 . A620 26-01 

6.0005-01 

3.4576-01 

.650 

3.311E-01 

7.63125E-01 

6.5006-01 

3.3116-01 

.700 

3.161E-01 

7. 793C6E-01 

7.000E-01 

3.161E-01 

.750 

3.00 8E-01 

7.9473GE-01 

7.50CE-01 

3.008E-01 

.800 

2. 8546-01 

8.093876-01 

8. 00C6-01 

2.854E-01 

.850 

2. 70 0E-01 

8.232746-01 

8. 5006-01 

2.700E-01 

.900 

2.5476-01 

8.363926-01 

9.0006-01 

2.547E-01 

.950 

2 . 396E-0 1 

8.487496-01 

9.5tjii£-Bl 

2.396E-01 

1.C00 

2.2486-01 

6.60357E-01 

l.OCOE+OO 

2.248E-01 

1.050 

2.1036-01 

8.71234E-C1 

1.Q5GE+00 

2.103E-01 

1.100 

1. 963E-01 

8.813996-01 

1.1006+00 

1.963E-01 

1.150 

1.8286-01 

e.soe76E-ai 

1.15CE+00 

1.8286-01 

1.200 

1.6996-01 

8.996916-01 

1.2006+00 

1.699E-01 

1.250 

1.5756-01 

9. 078726-01 

1.2506+00 

1.575E-01 

1.300 

1.4576-01 

5.154506-01 

1.3006+00 

1.457E-01 

1.350 

1.346E-01 

5.22«i55E-01 

1.350E+00 

1.346E-01 

1.400 

1.2416-01 

9. 28519E-01 

1.40PE+00 

1.241E-01 

1.450 

1.1425-01 

9.348746-01 

1.450E+00 

1.142E-01 

1.500 

1.050E-01 

9. A0352E-31 

1.5006+00 

1.050E-01 

1.550 

9.6386-02 

9.A5284E-01 

1 . 5506+00 

9.638E-0Z 

1.600 

8.8385-02 

9. 50C01E-01 

1. 6006+00 

8.838E-02 

1.650 

8.0966-02 

9. 54232E-01 

1. 6506+00 

8.0 96E-02 

1.700 

7 • 410E-02 

9.581066-01 

1.700E+00 

7.410E-02 

1.750 

6.7776-02 

9 . 61650 E-0 1 

1.75GE+80 

6.777E-02 

1.000 

6. 194E-02 

9.64691E-01 

1 . 80 0E + 00 

6.194E-02 

1.850 

5.6596-02 

9.678526-01 

1.850E+00 

5.659E-02 

1.900 

5, 168E-02 

9. 70557E-0 1 

1. 9006+00 

5.168E-02 

1.950 

4.7195-02 

5. 73027E-01 

1. 950E+00 

4.719E-02 

2.000 

4.309E-32 

9.75283E-01 

2.GOGE+00 

4.30 9E-02 

2.050 

3.9346-02 

9. 77342E-01 

2. C50E+00 

3.934E-02 

2.100 

3. 592E-0 2 

9.79223E-01 

2.100E+00 

3. 5 92 E-0 2 

2.150 

3.281E-02 

9. 80 540E-01 

2.15CE+00 

3.281E-02 

2.200 

2.9976-02 

9. 82508E-01 

2.200E+00 

2.997E-02 

2.250 

2.7396-02 

9. 835416-01 

2.2506+00 

2.739E-02 

2.300 

2.5035-02 

9. 65250E-01 

2 . 30 0E + 00 

2.503E-02 

2.350 

2.2896-02 

9. 86448E-01 

2. 35CE+00 

2.2 89E-02 

2.400 

2. 0946-02 

9. 67543E-01 

2.4006+00 

2.094E-02 

2.450 

1.9176-02 

9. 88S45E-0 1 

2.450E+00 

1. 917E-0 2 

2.500 

1.7566-02 

9. 89463E-01 

2.50CE + 0.0 

1.7566-02 
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TEST OF POIST, PROBABILITY 0ISTRI8UTI0N OF NON-GAUSSIAN MODEL FOR R PARAH. * 1.0 


NORMALIZED 

ST0IZ60 

DISTRIBUTION 

UNNORMALIZED 

NONSTOIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGHA X 
2.500 

OENSITY 

1.7565-02 

9. 89463E-01 

X 

2.5005+00 

DENSITY 
1. 756E-02 

2.550 

1.60 8E-02 

9. 90303E-01 

2.5505+00 

1.608E-02 

2.600 

1.474E-02 

5. 61073E-01 

2.6005+00 

1.474E-02 

2.650 

1.3525-02 

9. 61779E-01 

2.650E+00 

1.352E-02 

2.700 

' 1. 2415-02 

9.624275-01 

2.7C0E+0Q 

1. 2415-02 

2.750 

1.139E-02 

9. 93022E-01 

2. 75u 5 + 00 

1.139E-02 

2.000 

1.0465-02 

9.635685-01 

2.8005+00 

1.0465-02 

2.050 

9.6125-03 

9.640695-01 

2. 850E+00 

9.612E-03 

2.900 

8.8365-03 

9.945305-91 

2* 9COE+00 

8, 836E-03 

2.950 

8. 1265-03 

9.646545-01 

2. 9505+00 

8. 126E-03 

3.000 

7.4765-03 

9.653445-01 

3.00C5+00 

7.4765-03 

3.050 

6.8815-03 

9. 65702E-01 

3.05CE+0Q 

6.8815-03 

3.100 

6.3355-03 

9. 66033E-})1 

3.1005+00 

6.3355-03 

3.150 

5.8355-03 

9.963375-01 

3.1505+00 

5.835E-03 

3.200 

5.3755-03 

9.66617E-01 

3.2005+QQ 

5.3755-03 

3.250 

4.9546-03 

9.66 675E-Q1 

3.2505+00 

4.954E-03 

3.300 

4.5675-03 

9. 67113E-01 

3.300E+00 

4.5675-03 

3.350 

4.2115-03 

9.673325-01 

3.350E+00 

4. 211E-03 

3.400 

3. 8845-03 

9.675345-01 

3.40QE+B0 

3.8 84E-03 

3.450 

3.5835-03 

9. 67721E-01 

3.450E+00 

3.583E-03 

3.500 

3.30 65-03 

9.67893E-01 

3.5005+00 

3.3065-03 

3.550 

3.0526-03 

9.98052E-01 

3.5505+00 

3.0525-03 

3.600 

2.8175-03 

9. 98199E-01 

3.6005+00 

2. 817E-03 

3.650 

2.6015-03 

9.683345-01 

3.650E+00 

2.6015-03 

3.700 

2.4025-03 

9.984595-01 

3. 700E+00 

2.402E-03 

3.750 

2. 219E-33 

9.985745-01 

3 . 750E+00 

2.219E-03 

3. BOO 

2.0505-03 

9.986815-01 

3.800E+00 

2.050E-03 

3.850 

1.8945-03 

9.687805-01 

3. 85PE+0Q 

1. 894E-03 

3.900 

1.7505-03 

9.688715-01 

3.900E+00 

1.750E-03 

3.950 

1.6185-03 

9.986555-01 

3.9505+00 

1. 618E-0 3 

4. COO 

1.4955-03 

9.990335-01 

4.00 QE + QO 

1.4955-03 

4.050 

1.3835-03 

9.99104E-01 

4.05CE+00 

1.3835-03 

4. ICO 

1.278E-03 

9.691715-01 

4. 10 CE + OO 

1. 278E-03 

4.150 

1.1825-03 

9.692325-01 

4.15PE+00 

1.182E-03 

4.200 

1.0935-03 

9.692895-01 

4. 2005+00 

1.0935-03 

4.250 

1.0115-03 

9.693425-01 

4. 2505 + 00 

1.511E-03 

4.300 

9.356E-04 

9.593915-01 

4.300E+00 

9.3565-04 

4.350 

8.6575-04 

9, 59436E-01 

4.3505+00 

8.6575-04 

4.400 

8.0106-04 

9.59477 E- 01 

4.40 QE + OG 

8. 010 E- 04 

4.450 

7.4125-04 

9. 99516E-01 

4.4505+00 

7.4125-04 

4.500 

6.8605-04 

9.99551E-01 

4.5005+00 

6.B60E-04 

4.550 

6.3495-04 

9 . 695 94E-0 1 

4.5505+00 

6.349E-04 

4.600 

5. 877E-04 

9,996155-01 

4.6005+00 

5.B77E-04 

4.650 

5.4415-04 

9.596435-01 

4.6505+00 

5.441E-04 

4.700 

5.0375-04 

9.596695-01 

4.7005+00 

5.0375-04 

4.750 

4.6645-04 

9. 99694E-01 

4 • 7505+00 

4.664E-04 

4.800 

4.3186-04 

9.597165-01 

4.8005+00 

4.3185-04 

4.850 

3. 999E-04 

9. 59737E-01 

4.850E+00 

3. 999E-04 

4.900 

3.7046-04 

9. 59756E-0 1 

4. 900E+09 

3. 704 E- 04 

4.950 

3.4305-04 

9.597745-01 

4.950E+00 

3.430E-04 

5.000 

3.1775-04 

9, 59791E-01 

5.0005+00 

3. 177E-04 
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TEST OF FOIST, PROBABILITY 0ISTRI8UTI0N OF NON-GAUSSIAN MODEL FOR R PARAM. * 1.0 


NORMALIZED 

ST0I2E0 

DISTRIBUTION 

UNNORMALIZEO 

NONSTDIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/ SIGMA X 

DENSITY 


X 

DENSITY 

5.000 

3. 177E-0L 

9, 99791E-01 

5.0005+00 

3.177E-0L 

5.050 

2. 9L3E-0L 

9 . S9806E-01 

5 .0 505 + 00 

2.943E-QL 

5.100 

2.727E-0L 

9.59820E-01 

5.1005+00 

2.727E-04 

5.150 

2.526E-Q4 

5. 9 9J33E-01 

5. 150E+00 

2.526E-04 

5.200 

2.340E-3L 

9 . 59845E-01 

5.2005+00 

2.340E-04 

5.250 

2.169E-0L 

9.99857E-01 

5.25CE+0Q 

2.169E-04 

5.300 

2.CQ9E-04 

9. 998676-01 

5.3005+00 

2.G09E-04 

5.350 

1.862E-0L 

9. 99877E-01 

5.350E+00 

1. 862E-0L 

5. LOO 

1.726E-04 

9 .998866-01 

5 .4Q0E + QQ 

1.726E-04 

5.450 

1.599E-0L 

9. 99694E-01 

5.45CE+00 

1.599E-04 

5.500 

1.482E-04 

9. 59502E-01 

5.500E+00 

1.482E-04 

5.550 

1.37LE-04 

9. 59909E-0 1 

5.55CE+00 

1. 374E-0L 

5.600 

1.274E-0L 

9. 99515E-0 1 

5.6QCE+00 

1. 274E-04 

5.650 

1.181E-0L 

9. 59921E-01 

5.650E+00 

1.181E-04 

5.700 

1. G95E-04 

9. 99527E-0 1 

5.7QGE+0Q 

1.095E-04 

5.750 

1.0155-04 

9. 59532E-0 1 

5.750E+00 

1.C15E-04 

5.800 

9.40 9E-05 

9.99537E-01 

5.800E+00 

9.409E-OS 

5.850 

8.724E-05 

9. 59542E-01 

5.850E+00 

8.724E-05 

5.900 

8. 0905-05 

9. 99546E-0 1 

5.900E+0Q 

8.090E-05 

5.950 

7.501E-05 

9. 59550E-0 1 

5.950E+00 

7.501E-05 

6. COO 

6.956E-05 

9. 99954E-01 

6.00 0E + 00 

6.956E-05 

6.C50 

6.451E-05 

9. 99557E-01 

6.050E+0Q 

6. 451E-05 

6.100 

5.983E-05 

9.99960E-01 

6.1OOE+00 

5.983E-05 

6.150 

5. 549E-05 

9. 99563E-01 

6.15CE+00 

5. 5496-05 

6.200 

5.1475-05 

9.59566E-01 

6.23CE+0G 

5.147E-05 

6.250 

4.77LE-05 

9.99968E-01 

6.250E+00 

4.774E-05 

6.300 

4.L285-05 

9. 99570E-01 

6.300E+0C 

4. 428 E- 05 

6.350 

4.107E-05 

9. 99573E-01 

6.35CE+00 

4. 107E-05 

6. LOO 

3.810E-05 

9. 59574E-01 

6.400E+OU 

3.810E-05 

6.L50 

3.5355-05 

9. S9576E-01 

6.45GE+00 

3. 535E-05 

6.500 

3.279E-05 

9. 99978E-31 

6.500E+00 

3.279E-05 

6.550 

3.042E-05 

9. 59580E-01 

6.550E+00 

3.042E-05 

6.600 

2.8235-05 

9. 999815-01 

6 . 60CE+00 

2. 823E-05 

6.650 

2.619E-05 

9. 99S82E-Q1 

6.650E+00 

2.619E-05 

6.700 

2.430E-05 

9.999845-01 

6.70CE+00 

2.430E-05 

6.750 

2.255E-05 

9. 99985E-0 1 

6. 750E+00 

2.255E-05 

6.800 

2. 092E-05 

9. 59586E-01 

6. 800E+00 

2.0 92E-05 

6.850 

1.9425-05 

9. 99987E-Q 1 

6 . 85UE+00 

1.942E-0 5 

6.900 

1.802E-05 

9. 99988E-01 

6.90CF»00 

1.802E-05 

6.950 

1. 672E-05 

9. 99989E-01 

6 • 95CE+00 

1.672E-05 

7. GOO 

1.552E-05 

9. 99590E-Q 1 

7.00CE+00 

1.552E-05 

7.050 

1.440E-05 

9. 99590E-0 1 

7.050E+00 

1.440E-05 

7.100 

1.3375-05 

9. 99991E-0 1 

7.1SGE+00 

1.337E-05 

7.150 

1.241E-05 

9. 99992E-0 1 

7 • 150E+00 

1.241E-05 

7.200 

1.151E-05 

9..99992E-01 

7.200 E+OQ 

1. 151E-05 

7.250 

1.069E-Q5 

9, 99993E-Q 1 

7.250E+00 

1.069E-05 

7.300 

9.920E-06 

9. 99993E-01 

7.300E+00 

9. 920E-06 

7.350 

9.208E-06 

9. 99994E-01 

7.35QE+00 

9. 20 8E-0 6 

7. LOO 

8 . 548E-06 

9. 99994E-0 1 

7.4DCE+00 

8.548E-C6 

7.L50 

7. 935E-06 

9. 99995E-01 

7.450E+00 

7.935E-06 

7.500 

7.366E-06 

9. 99995E-01 

7.500E+00 

7.366E-06 
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TEST OF PDIST, PROBABILITY DISTRIBUTION OF NON-GAUSSIAN MOOEL FOR R PARAH. * 1.0 


NORMALIZED 

STDIZEQ 

DISTRIBUTION 

UNNORMALIZEO 

NONSTDIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGMA X 

DENSITY 


X 

DENSITY 

7.5Q0 

7 . 366E-06 

9. 99995E-01 

7*50 0E + 00 

7.366E-06 

7.550 

6.838E-06 

9. 99995E-01 

7.550E+00 

6.836E-06 

7.600 

6 .3485-0 6 

9.99996E-01 

7.600E+00 

6.348E-06 

7.650 

5.894E-06 

9.99996E-01 

7.650E+00 

5.894E-06 

7.700 

5.47 2E-06 

9.999965-01 

7.70 CE + 00 

5.472E-06 

7.750 

5.080E-06 

9. 99997E-01 

7.750E+00 

5.0805-06 

7.600 

4.717E-06 

9.99997E-01 

7.800E+00 

4.717E-06 

7.850 

4.380E-06 

9. 59597E-01 

7. 850E+00 

4.3805-06 

7.900 

4.067E-06 

9.999975-01 

7.900E+00 

4.0675-06 

7.950 

3.776E-06 

9.99997E-01 

7.950E+00 

3.776E-06 

6.000 

3.506E-06 

9. 99598E-01 

S.OOOE+OC 

3.5065-06 

8.050 

3.256E-06 

9. 59598E-01 

8.050E+00 

3. 256E-06 

8.100 

3.023E-06 

9. 999985-01 

8.1C0E+00 

3.0235-06 

8.150 

2.808E-06 

9. 99998E-01 

8.150E*00 

2.8085-06 

8. ZOO 

2.60 7E-06 

9.59599E-01 

8.200E+00 

2.607E-06 

8.250 

2.421E-06 

9. 59998E-01 

8.250E+00 

2.4215-06 

8.300 

2.249E-06 

9. 99598E-01 

8.300E*00 

2.249E-06 

8.350 

2.088E-06 

9. 99999E-01 

8.350E+00 

2.0835-06 

8.400 

1. 939E-06 

9. 99999E-01 

8.4005*00 

1.939E-06 

8.450 

1.801E-06 

9. 99999E-01 

8.450E*00 

1.801 E- 06 

8.500 

1.673E-06 

9. 99599E-01 

8. 50CE+00 

1.673E-06 

8.550 

1.554E-06 

9, 99599E-0 1 

8. 5505+00 

1.554E-06 

8.600 

1.443E-06 

9. 999 99E-01 

8.600E+00 

1.4435-06 

8.650 

1.340E-06 

9. 99999E-01 

8.650E+00 

1.34QE-06 

8.700 

1.2455-06 

9.99599E-01 

8.700E+00 

1.245E-06 

8.750 

1.15 6E-06 

9. 99999E-01 

8 . 75GE+00 

1.1565-06 

8.800 

1.O74E-06 

9.99999E-01 

B.B00E+00 

1.0745-06 

6.650 

9. 978E-07 

9. 999995-01 

8.850E+00 

9.9785-07 

6.900 

9. 269E-07 

9. 99599E-01 

8 • 900E+00 

9. 269E-07 

8.950 

8.61CE-07 

9. 999 99E-01 

8. 95CE+00 

8.6105-07 

9.000 

7 • 999E-07 

9 • S9599E-01 

9.0G0E+0Q 

7. 999E-07 

9.050 

7.43CE-07 

9. 99999E-01 

9.050E+00 

7.4305-07 

9.100 

6.903E-07 

1. OOCOOE*Ofl 

9.1005+00 

6.9035-07 

9.150 

6.413E-07 

1.00000E*00 

9. 150E+00 

6. 413E-07 

9.200 

5.957E-07 

l.C00005*00 

9.200E+00 

5.957E-07 

9.250 

5. 535E-07 

1. 000005*00 

9.2505+00 

5.535E-07 

9.300 

5. 142E-07 

1. OOt 005*00 

9.3C0E+00 

5. 142E-07 

9.350 

4.777E-07 

l.COCOOE+OO 

9.3505+00 

4.7775-07 

9.400 

4.438E-07 

1.0000flE*00 

9.400E+00 

4. 438E-07 

9.450 

4. 124E-07 

1.000005*00 

9.450E+00 

4.1245-07 

9.500 

3. 831E-07 

l.cooaoE+oo 

9.5005*00 

3. 831E-07 

9.550 

3.560E-07 

1. GOCOOE+OO 

9.55GE*00 

3,560 E- 07 

9.600 

3.306E-07 

1.000005*00 

9.60C5+00 

3.30 8E-07 

9.650 

3. 073E-07 

1.000005*00 

9.65CE+00 

3.073E-07 

9.700 

2.856E-07 

1.000005*00 

9. 700E+00 

2. 856E-07 

9.750 

2. 653E-07 

l.OOC0OE*OO 

9.75CE*00 

2.6535-07 

9.800 

2.466E-07 

1. 000005*00 

9.800E+00 

2.4665-07 

9.650 

2.291E-07 

l.C0C00E*00 

9.65CE+00 

2.2915-07 

9.900 

2. 129E-07 

1. C00Q0E+00 

9. 900E+00 

2.129E-07 

9.950 

1.978E-07 

1.000005*00 

9* 950E + 00 

1.978E-07 

10.000 

1.836E-07 

1.00000E+00 

1.000E*01 

1.8385-07 
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Program LEVXNG 

LEVXNG is a program which computes universal level crossing frequency 
curves for the non-gaussian turbulence model. The example presented here 
shows the calculation of the u-gust curve for an R parameter value of 1.0. 

Card Decks 

The following car- decks were required to produce the sampel calcu- 
lation presented here: 

LEVXNG 

CF2 

INVR 

FFT 

Input Data 

Program LEVXNG is written so as to require no input data from punched 
cards. The functioning of the program is determined by DATA statements as 
described by comment cards in the deck listing. 

Results 

The above named card decks were compiled, loaded, and executed on 
the University of Washington CDC-6400 computer system. Storage require- 
ment including I/O buffers and all system programs was 40,500 8 words. 
Execution, including compilation and loading, required 1 9 a 0 seconds of 
central processor time. The following output was generated. 
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COVARIANCE HATRICIES OF FIRST AND SECOND 
GAUSSIAN VECTORS ARE 
7.071E-01 0. 

0. 3.536E-01 

7.071E-01 0. 

0. 3.536E-81 


FUNCTIONAL 
AND SECONO 
l.OOOE+OO 
0. 

0 . 

1.000E*00 


RELATIONSHIP HATRICIES FOR FIRST 
TRANSFORM VARIABLES ARE 
0 . 


0 . 

i.OOOEOO 

0 . 


R PARAMETER = 1.000 


DETERMINANTS OF COVARIANCE HATRICIES 
OET A = 2.50000E-01 
DET9 = 2.58000E-01 

X INCREMENTS! DXI1I = 3. 000 DOOOE-Ol 0X(2> = 3.0 OOOOOOE-Ol 
F INCREMENTS! OFI1I = 5.2083333E-02 DFC2I = 5 . 20 83333E-02 
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FIRST ROW, FIRST COLUMN, ANO DIAGONAL OF 
JOINT CHARACTERISTIC FUNCTION 


i.eooE+oo 

0. 

9.485E-01 

0. 

8.1546-01 

0. 

6.456E-01 

0 

4.7826-01 

a. 

3.3486-01 

0. 

2.229E-01 

0. 

1 • 4196-01 

0. 

8.566E-02 

0. 

4.9496-02 

0. 

2.727E-02 

0. 

1.4336-02 

0 

7. 172E-C3 

9. 

3.419E-03 

0. 

1. 552E-03 

0. 

6.7006-04 

0 

2.752E-04 

0. 

1.C75E-04 

a. 

3. 990E-05 

0. 

1.4086-05 

0 

4.71BE-06 

0. 

1.S02E-06 

0. 

4. 5436-07 

0. 

1.3056-07 

0. 

3. E57E-0 8 

0. 

9.209E-09 

0. 

2.263E-09 

0. 

5. 277E-10 

0 

1.168E-10 

0. 

2.454E-11 

0. 

4.896E-12 

a. 

9.5346-13 

0 

3.320E-13 

0. 

9.534E-13 

c. 

4. 896E-12 

0. 

2.454E-11 

0, 

1.168E-10 

a. 

5.2776-10 

e. 

2.263E-C9 

0. 

9.2C9E-09 

0 

3.557E-0S 

9. 

1.30 5E-0 7 

a. 

4.543E-07 

0. 

1. 502E-06 

0. 

4.718E-06 

0. 

1.408E-05 

0. 

3.990E-05 

0. 

1. 075E-04 

0 

2.752E-04 

0. 

6.700E-04 

0. 

1.552E-03 

0. 

3.419E-03 

0 

7.172E-Q3 

0. 

1.4336-02 

0. 

2.727E-02 

0. 

4. 9496-02 

0 

8.5666-02 

0. 

1.415E-01 

0. 

2.229E-01 

0. 

3.348E-01 

0. 

4.782E-Q1 

0. 

6.4566-01 

0. 

8.154E-01 

0. 

9.485E-01 

0. 

1.0006*00 

0. 

9.4826-Q1 

0. 

8.115E-01 

0. 

6.3336-01 

0. 

4.562E-01 

a. 

3.067E-01 

0. 

1. 942E-31 

0. 

1.1656-01 

0. 

6.6426-02 

0. 

3.608E-02 

0. 

1.870E-02 

0. 

9. 242E-03 

0. 

4.360E-03 

0. 

1# S62E-03 

0. 

8.420E-04 

0. 

3.4466-04 

0 

L.344E-04 

0* 

4.992E-05 

0. 

1.7666-0 5 

0. 

5.9516-06 

0. 

1.9086-06 

a. 

5 . 8196-07 

0. 

1.689E-07 

0. 

4.659E-08 

0, 

1.222E-08 

0. 

3.049E-09 

0. 

7.226E-10 

0. 

1.627E-10 

0. 

3.4836-11 

0. 

7. 0606-12 

0. 

1.368E-12 

0. 

2.579E-13 

0 

8.731E-14 

0. 

2 . 579E-13 

0. 

1.3686-12 

0. 

7.080E-12 

0. 

3.483E-11 

0. 

1. £276-10 

0. 

7.226E-10 

0. 

3.0496-09 

0. 

1.222E-08 

0. 

4.659E-08 

c. 

1.689E-07 

0. 

5.819E-07 

0. 

1.9086-06 

0. 

5.9516-06 

0. 

1.766E-05 

0. 

4.992E-05 

0. 

1.3446-04 

0. 

3.446E-04 

0. 

6.4206-04 

0. 

1.9626-03 

0. 

4.360E-03 

0. 

9.242E-03 

0. 

1.870E-02 

0. 

3.608E-02 

0. 

6.642E-02 

0. 

1.165E-01 

a. 

1 . 942E-01 

0. 

3.0 67E-0 1 

0. 

4.562E-01 

0. 

6.333E-01 

0. 

B.115E-01 

0. 

9.482E-01 

0. 

l.OOOEtOO 

0. 

9. 006E-01 

0. 

6.727E-01 

0. 

4.3436-01 

0. 

2.4946-01 

0. 

1.291E-01 

c. 

6.049E-02 

0. 

2.5696-02 

0. 

9.89CE-03 

0. 

3.443E-03 

G. 

1.0 88E-Q3 

0. 

3.1056-04 

0. 

8.010E-Q5 

9. 

1. S67E-05 

0. 

3.932E-06 

0. 

7.476E-97 

0. 

1.283E-07 

0. 

1.986E-00 

c. 

2.773E-09 

0. 

3. 491E-10 

0. 

3.963E-11 

a. 

4.055E-12 

0. 

3.739E-13 

0. 

3. 1066-14 

0. 

2.325E-15 

0. 

1.567E-16 

0. 

9.511E-18 

0. 

5 . 199E-19 

0. 

2.5586-20 

0. 

1.133E-21 

0. 

4.528E-23 

0. 

1.723E-24 

0. 

2.B96E-25 

a. 

1.723E-24 

0. 

4.528E-23 

0. 

1* 133E-21 

0. 

2.558E-20 

0. 

5.199E-19 

0. 

9.511E-18 

0. 

1.5676-16 

0. 

2.325E-15 

3. 

3.106E-14 

0. 

3. 7396-13 

0. 

4.0 55E-12 

0. 

3.963E-11 

0. 

3.491E-10 

0. 

2.773E-09 

0. 

1.986E-08 

0. 

1.2 33E-07 

3. 

7.476E-07 

c. 

3.932E-U6 

0. 

1. 867E-05 

0. 

8.010E-05 

0. 

3.105E-04 

0. 

1.0886-03 

0. 

3.4486-03 

0. 

9. 890E-03 

0. 

2. 569E-02 

0. 

6.0496-02 

0. 

1.291E-01 

0. 

2.494E-01 

0. 

4.343E-01 

c. 

6.7276-01 

0. 

9.006E-01 

0. 



165 


FIRST ROW, FIRST COLUMN, AND OIAGONAL OF 
JOINT. PROBABILITY OENSITY 


2.01QE-01 0. 
7.043E-02-1.121E-14 
6.565E-03-2.791E-15 
6.955E-04-5.759E-16 
9. 190E-05-1. 665E-16 
1.324E-C5-3.469E-17 
2.005E-06-1.549E-17 
3.209E-07-1.041E-17 
9.992E-08 0. 
3.209E-O7 1.041E-17 
2.005E-06 1 • 549E-17 
1.324E-05 3.469E-17 
9.19CE-P5 1.665E-16 
6.955E-04 5.759E-16 
6.565E-03 2. 791E-15 
7.343E-02 1.121E-14 


1.876E-01 1.585E-14 
4.124E-02-8.94CE-14 
3.615E-03 4.223E-14 
4.142E-04-e.974E-14 
5. 629E-0 5-2. 20 5E-14 
8.23GE-06 4.884E-14 
1.258E-06 1.657E-14 
2.102E-07 2.647E-14 
1.106E-07-9.477E-15 
5.016E-07 3.228E-14 
3.202E-06-4.956E-15 
2.138E-05 8.33CE-14 
1.508E-04 6.972E-15 
1.182E-Q3 4.116E-16 
1.219E-Q2-S.151E-14 

1.C98E-01-2.787E-14 


1.530E-01 5.968E-14 
2.272E-02-7.865E-15 
2.044E-03 8.691E-15 
2.490E-04-6.401E-14 
3.462E-05-1.613E-13 
5.127E-U6 2.303E-14 
7.924E-07 1.142E-14 
1.448E-07-2.652E-14 
1.448E-07 2.652E-14 
7.924E-07-1.142E-14 
5.127E-Q6-2.303E-14 
3.462E-05 1.613E-13 
2.490E-04 6.4C1E-14 
2, C44E-Q3-8 .691E-lT> 
2.272E-02 7.865E-15 
1.530E-01-5.968E-14 


1.098E-01 2.787E-14 
1.219E-Q2 5.151E-14 
1. 182E-Q 3-4. 116E-16 
1. 50 8E-Q4-8. 972E-1 5 
2.138E-05-8.33CE-14 
3.2 C2E-06 4.956E-15 
5.Q16E-07-3.228E-14 
1.1C6E-07 9.477E-15 
2. 1C2E-0 7-2. 647E-14 
1.258E-Q6-1.657E-14 
8.230E-06-4.884E-14 
5.629E-05 2.20SE-14 
4.142E-04 6.974E-14 
3. 615 £-03-4. 223E-14 
4.124E-02 8.94CE-I4 
1 • 876E-01-1. 585E-14 


2. 0 10E-0 1 0. 

7. 766 £-02— 1.188 E- 14 
7.106E-03-3.124E-15 
4.0 97 £-04-4. 996E- 16 
2.427E-05 0. 
1.595E-06 5.551E-17 
1.139E-07-1.578E-17 
8.601E-09 0. 

1 . 326E-09 0. 
8.601E-09 0. 

1. 138E-07 1.578E-17 
1.595E-06-5.551E-17 
2. 427E-35 0. 

4. 097E-04 4.996E-16 
7 • 196E-03 3.124E-15 
7.766E-02 1.188 £—14 


1. 889E-01 1.31CE-14 
4.709E-Q2-6.896E-14 
3. 523E-03 3.880E-14 

2.C04E -04-7.192 £-14 
1.217E-05-2.148E-14 
8. 192 E- 07 5.382E-14 
5. 937E-0 8 1.72QE-14 
4. 599E-0 9 2.872E-14 
1.605E-05-8.551E-15 
1.630E-08 3.294E-14 
2. 1 90 E- 07-4. 252 E- 15 
3. 121E-0 6 8 • 840E-14 
4 . 872E-05 1.349E-14 
8.404E-04— £.580£-15 
1. 399E-0 2-4.908E-14 
1 . 166E-01-3.267E-14 


1 . 573E-01 6.195E-14 
2.643E-02-9.276E-15 
1.7 25E-03 1 • 035E-14 
9. 8 49 E -05-6. 58 IE -14 
6. 144E-B 6-1.66UE-13 
4. 227E-07 2. 695E-14 
3.106E-08 1.298E-14 
2.559E-09-2.726E-14 
2.559E-09 2.726E-14 
3.106E-08-1.2 98E- 14 
4.227E-S7-2.695E-14 
6.144E-06 1 • 660E-13 
9.849E-05 6.5 9 IE -14 
1.725E-03-1.035E-14 
2. 643E-0 2 9. 276E-15 
1.573E-01-6.195E-14 


1. 166E-01 3.267E-14 
1.399E-02 4. 908E-14 
8.404E-04 6. 58DE-15 
4.872E-05-1.C49E-14 
3.121E-06-8. 840E-14 
2.190E-07 4. 252E-15 
1.630E-08-3.294E-14 
1.6C5E-09 8. 551E-15 
4.599E-09-2. 872E-14 
5.937E-08-1. 720E-14 
8. 192E-07-5. 382E- 14 
1.217E-05 2.148E-14 
2.004E-04 7.192E-14 
3.523E-03-3.880E-14 
4.709E-02 8.896E-14 
1.889E-01-1.310E-14 


2. 010 E- 01 0. 

3.097 E- 02-2. 301 E- 14 
1.163E-03-5.733E-15 
6.193E-05-9.759E-16 
3 . 747E-06— 2 . 4 88 E- 16 
2.408E-07— 4.987E-17 
1.612E-0 8—7 . 875E-18 
1.227E-09-7.660E-18 

3.C5CE-10 0. 
1.227E-09 7. 660 E- 18 
1.612E-08 7.875E-18 
2 , 408E-07 4.987E-17 
3.747E-06 2.488E-16 
6. 193E-05 9. 759E-16 
1. 163E-03 5. 733 E- 15 
3. 097E-02 2.30 IE-14 


1. 765E-0 1 2.591E-14 
1.335F-02-5.191E-14 
5.471E-04-3.705E-15 
3.047E-05-5.785E-16 
1.87SE-06-9.795E-17 
1. Z20E-37-3.266E-17 
8.275E-09 2.700E-17 
7.088E-10-3.888E-17 
3.380E-1C 1.063E-17 
2.256E-09 3.290E-18 
3.156E-08-1.61CE-17 
4.763E-07 9.191E-17 
7.501E-06 2.129E-16 
1. 268E-04 5.384E-16 
2 , 533E-0 3 3 .0 73E-15 
G.625E-02-2.759E-14 


1.2 06E-0 1 8.954E-14 
5 . 7 19E— C3-1.30 7E-14 
2.618E-04-1.515E-15 
1.509E-05-5.539E-16 
9.44<*E-0 7-4.0 88E-17 
6.198E-08 2.87 6E-17 
4.284E-09 4.009E-18 
4.537E-1G-1 .575E-17 
4. 537E-10 1. 575E-17 
4.284E-09-4.009E-18 
6.198E-08-2.876E-17 
9.444E-C7 4.088E-17 
1.538E-05 5.539E-16 
2.618E-04 1.515E-15 
5.719E-03 1 . 307E-14 
1.206E-01-8.954E-14 


6.625E-02 2. 759E-14 
2.533E-03-3.073E-15 
1.268E-04-5. 384E-16 
7. 5C1 E-G6-2.129E-1 6 
4.763E-07-9. 191E-17 
3. 156E-0 8 1.610E-17 
2.256E-09-3.290E-18 
3. 380 E- 10-1. 063E- 17 
7.0 88E-10 3.888E-17 
8.275E-09-2.70CE- 17 
1.220 £-07 3.266E-17 
1 . 878E-06 9. 795E-17 
3.047E-05 9. 785E-16 
5.471E-04 3. 705E-15 
1 • 335E-0 2 5.181E-14 
1 . 765E-0 1-2. 591E-14 
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COMPUTED VALUES OF X AND NIX) 


0 . 

3.O00C000E-O1 
6.000CQ00E-D1 
9.00000 QOE-01 
1.2000000E4-00 
1.50000 C0E+0C 
1.800000DE*0<3 
2. ICO 0C 03E+00 
2.4000000E«-00 
2.700C003E«-00 
3.0000030E«-eO 
3*30 OOOOOEt-OO 
3.6000000E«-00 
3. 53000 33E + 0 0 
4.20000005*00 
4.5QOCOOOE+09 
4.8030CQ0E+03 
5 • 100 00 00£*0 0 
5.40DC0O0E«-30 
5.7000000E+00 

6. C330000E+00 
6.3090000Et’00 
6.6OOP0OOE*-0O 
6.9000000E+00 
7.20DCQOOE+CO 
7.5000000 E+ 00 

7. 8000000E4-00 
8.1000000E«-CG 
8. 40 0 00 OOE + OO 
8. 7030 0 OOE+OQ 
9.0000000EMI9 
5.30000036*00 
9.6oaocooE»cn 
9.9000300E»PO 
1.0200000E+01 


1. 61836C2E-C1 
1.5262845E-01 
1.28 47151E-01 
9. 75233436-02 
6.7960316E-C2 
4. 4515143E-02 
2. 8145278E-82 
1. 7584277E-82 
1. 1020905E-02 
6. 9694671E-C3 
4. 44602 EOE-13 
2. 8545952E-03 
1. 84 07513F- C3 
1. 190 4340E-C3 
7.7143429E-04 
5. 0066131E-84 
3. 2530378E-04 
2. 1155758E-04 
1. 3768585E-04 
8. 96629E6E-05 
5. 8419782E-B5 
3. 80 80485E-05 
2.4S33030E-CS 
1.62316COE-05 
1. 0 576907E-05 
6. 9123730E-C6 
4. 5273138E-06 
2. 9793557E-06 
1. 981 7650E-U6 
1. 34993C7E-0S 
9. 6704274E-C7 
7. 6236168E-07 
6. 9808990E-87 
7. 6236168E-07 
9.6704274E-07 
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LEVEL CROSSINGS 

LEVEL CROSSING FREQUENCY OF THE NON-GAUSSIAN MOOELi R= 1.008 


OIMENSIONAL 

NON- 01 HE NS I ON AL 

CROSSINGS PER 

CROSSINGS PER 

LEVEL 

LEVEL 

UNIT TIHE 

ZERO CROSSING 

X 

X/SIGHA X 



0. 

0. 

1.618E-01 

1. OOOE+OO 

2.000E-01 

2. OOOE-91 

1.576E-01 

9.741E-01 

4.000E-01 

4.000E-01 

1.459E-01 

9.014E-01 

6. OOOE-Ol 

6. OOOE-Ol 

1.285E-01 

7 • 938E-01 

8. 009E-01 

8. COO E- 01 

1.081E-01 

6.677E-01 

1. OOOE+OO 

1. OOOE+OO 

8.721E-02 

5. 3896-01 

1. 200E+00 

1.200E+00 

6.796E-02 

4.199E-01 

1.40QE+0Q 

1.40CE+00 

5.153E-02 

3. 184E-01 

1.6DCE+00 

1.60CE+00 

3. 831E-02 

2.367E-01 

1.800E+00 

1.800E+00 

2 • S15E-02 

1.739E-01 

2 « OOOE + OO 

2. OOOE+OO 

2.057E-02 

1 .271E-01 

2.200E+03 

2.20 GE+QG 

1.503E-02 

9.290E-02 

2.400E+00 

2.400E+00 

1.102E-02 

6.810E-02 

2.600E+00 

2. 600E+00 

8.111E-Q3 

5.012E-02 

2.flooe*oo 

2.80QE+00 

5. 99SE-03 

3.704E-02 

3.0 OCE+OO 

3. OOOE+OO 

4.446E-03 

2.747E-02 

3. 20 0E <-0 0 

3. 20QE+00 

3.307E-03 

2.044E-02 

3.400E+00 

3 . 40 OE+QO 

2.465E-03 

1.S23E-02 

3.600E+00 

3.600E+00 

1.841E-03 

1.137c -02 

3.800E+00 

3.800E+00 

1.376E-03 

8.50 4E-03 

4. OOOE+OO 

4. OOOE+OO 

1.030E-03 

6.364E-03 

4. 20CE+00 

4.20 OE + OO 

7.714E-04 

4.767E-03 

4.400E+00 

4.400E+00 

5.782E-04 

3.573E-03 

4.600E+00 

4. 60 OE + OO 

4.336E-04 

2.67 9E-03 

4.800E+00 

4. 800E+00 

3.253E-04 

2.010E-03 

5.C00E+00 

5. OOOE+OO 

2.442E-04 

1.509E-03 

5. 2006+00 

5 . 2 0 OE+OO 

1.833E-04 

1.1336-03 

5. 40CE+0Q 

5.400E+00 

1.377E-04 

8.50 8E-04 

5.60CE+00 

5. 6 0 OE + OO 

1.034E-04 

6.392E-04 

5.80CE+00 

5. 800E+00 

7.773E-05 

4.803E-04 

6 . 0 G GE +0 0 

6. OOOE+OO 

5.842E-05 

3 . 61 CE-04 

6.200E+B3 

6. 2QGE+00 

4 . 392E-0 5 

2.714E-04 

6.4006+00 

6.40 OE + OO 

3.302E-05 

2 . 040E-04 

6. 6 0CE + 00 

6.60CE+00 

2.483E-05 

1.534E-04 

6.800E+03 

6 • 80 IE+00 

1 • 868E-05 

1. 154E-04 

7. OOCE+OO 

7. £00E+00 

1.405E-05 

8.684E-05 

7.200E+00 

7. 200E+00 

1.058E-05 

6. 536E-05 

7.400E+00 

7. 400E+00 

7 . 964E-06 

4.921E-05 

7.600E+00 

7. 600E+00 

6.001E-0E 

3.708E-05 

7.800E+00 

7. OOOE+OO 

4.527E-06 

2.797E-05 

8. OOOE+OO 

8. OOOE+OO 

3.423E-06 

2.115E-05 
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Program INCPD 

INCPD is a program which computes velocity increment probability 
distributions of the non-gaussian turbulence model. The example given 
here shows the calculation of the u-gust increment distribution for a time 
lag of 0.1 Lu/U seconds. The correlation functions which were used in 
determining the input data are given in equations 51 through 54 of the 
report. 

Card Decks 

The following card decks were required to produce the sample calcu- 
lation presented here: 

INCPD 

CF1 

INVR 

FFT 

FFTRS 

Input Data 

The following nine data cards were used in producing this example. 

The meaning and format of these crards are explained by comments in the 
listing of program INCPD. 


1 

11 

21 

31 

41 

51 

61 

EXAMPLE US 

E OF INCPD 

TO C0MPU7 

E U-GUST I 

NCREMENT O 

1ST., T AU= 

.1*L/U, R= 

2 







.09516258 







1« 

.95122542 






.95122942 

1.0 






1.0 

.95122542 






.95122942 

1.0 






.5 

0. 






0. 

-.5 
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Results 

The above named card decks were complied, loaded, and executed on 
the University of Washington CDC-6400 computer system. Storage require- 
ment including I/O buffers and all system programs was 20,476 8 words. 
Execution, including compilation and loading, required 5i 0 seconds of 
central processor time. The following output was generated. 


EXAMPLE USE OF INCPO TO COMPUTE U-GUST INCREMENT DIST., TAU=.1*L/U, R*l., SU*1. 

COVARIANCE MATRIX OF 1ST GAUSSIAN VECTOR 
1.00000 . 95123 

. 95123 1.00000 

COVARIANCE MATRIX OF 2ND GAUSSIAN VECTOR 
1.00000 .95123 

.95123 1.00000 

FUNCTIONAL RELATION MATRIX 
.50000 O.OGGOO 
0.00030 -.50000 

STANOARO DEVIATION OF PROCESS = 3.778E-01 

DETERMINANTS OF COVARIANCE MATRICIES 
DETA = 9.51626E-02 
DET8 = 9. 51626E-02 
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example use 

OF INCPO TC 

COMPUTE U-GUST 

INCREMENT GIST., 

TAU=.1*L/U, 

NORMALIZED 

STOIZED 

DISTRIBUTION 

UNNORMALIZED 

NONSTOIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGMA X 

DENSITY 


X 

DENSITY 

O.COO 

4. 118E-01 

5. OOOOOE-Ol 

0. 

2.B85E+00 

.050 

4.112E-01 

5. 20579E-01 

7 . 137E-03 

2.881E»00 

.100 

4.095E-01 

5.41100E-01 

1.427E-02 

2.869E»00 

.150 

4.066E-01 

5, 61506E-01 

2 • 141E-02 

2.849E*-00 

.200 

4.027E-01 

5.81742E-Q1 

2 . 855E-02 

2 . 821E*-0 0 

.250 

3.976E-01 

6. 0 1754E-0 1 

3 • 569E-0 2 

2.786E»00 

.300 

3.916E-01 

6. 21487E-01 

4.282E-02 

2.743E*0 0 

.350 

3.845E-01 

6, 408 93 E- 01 

4 . 996E-02 

2.694E*00 

.400 

3.766E-01 

6. 5 9924E-01 

5.71CE-02 

2.638E»00 

.450 

3.676E-Q1 

6. 78536E-01 

6.423E-02 

2.576E*-00 

.500 

3 • 582E-01 

6. 96687E-01 

7.137E-02 

2.50 9E*00 

.550 

3.479E-01 

7. 14341E-01 

7.851E-02 

2.437E+00 

.600 

3. 370 E -01 

7. 31465E-01 

8 . 565E-02 

2.361E*00 

.650 

3.255E-01 

7.48O30E-O1 

9.278E-02 

2.2808*00 

.700 

3, 136E-01 

7 . 64C10E-0 1 

9. 992E-02 

2.197EtO0 

.750 

3.013E-31 

7 • 79385E-01 

1.071E-01 

2.111E+CQ 

.600 

2.858E-01 

7. 94139E-01 

1.142E-01 

2.023E»00 

.850 

2.760E-01 

8. C8259E-01 

1 . 213E-0 1 

1.934£*00 

.900 

2.631E-01 

8. 21737E-01 

1.285E-01 

1.843E*00 

.950 

2.502E-01 

8. 345 69E-01 

1.356E-01 

1.753E4-00 

1. GOO 

2. 373E-01 

8.46755E-01 

1 . 427E-01 

1.662E+00 

1.050 

2. 245E-0 1 

8. 58298 E- 01 

1.499E-01 

1. 572E»Q 0 

1.100 

2.118E-01 

8. 69203E-01 

1.57GE-01 

i.484E*00 

1.150 

1.994E-01 

8. 79481 E-01 

1.642E-01 

1.397E+00 

1.200 

1.872E-01 

8. 89144E-Q1 

1.713E-01 

1.311E+00 

1.250 

1.754E-01 

8. 98207E-Q1 

1.7 84E-01 

1.228E*00 

1.300 

1.639E-01 

9. C6686E-01 

1.856E-01 

1.148E*00 

1.350 

1. 528E-01 

9.14601E-01 

1 • 927E-01 

1.670E*00 

1.400 

1.421E-01 

9. 21572E-0 1 

1. 998E-01 

9.956E-01 

1.450 

1. 319E-01 

9.28820E-01 

2.07CE-01 

9. 240E-01 

1.500 

1.221E-01 

9. 25169E-01 

2. 141E-01 

8.557E-01 

1.550 

1.129E-01 

9. 41042E-0 1 

2. 213E-01 

7.907E-01 

1.600 

1.041E-01 

9.46463E-01 

2.284E-01 

7.290E-0 1 

1.650 

9. 575E-02 

9. 51457E-01 

2.355E-01 

6.708E-01 

1.700 

8.793E-02 

9.56046E-01 

2.427E-01 

6.160E-01 

1.750 

8 . 05 8E-0 2 

9. 60 257E-01 

2 . 498E-01 

5.645E-01 

1. BOO 

7. 370E-02 

9 . 64 112E-01 

2.569E-01 

5.163E-01 

1.850 

6. 729E-02 

9. 87635E-01 

2.641E-01 

4, 714E-01 

1.900 

6, 132E-02 

9. 70 C4 8E-01 

2.712E-01 

4.296E-01 

1.950 

5.578E-02 

9. 73774E-01 

2.784E-01 

3. 908E-0 1 

2.000 

5.066E-02 

9 . 76433E-01 

2. 855E-01 

3.549E-01 

2.050 

4.593E-02 

9.78846E-01 

2 .9266-01 

3.217E-01 

2.100 

4.157E-02 

9.8103ZE-01 

2.993E-01 

2.912E-01 

2.150 

3.757E-0 2 

9. 83009E-01 

3 . 069E-01 

2.632E-01 

2.200 

3.391E-02 

9. 84795E-01 

3.140E-Q1 

2.375E-01 

2.250 

3. 056E-32 

9. 86405E-01 

3.212E-01 

2. 141E-01 

2.300 

2. 750E-02 

9. 87855E-01 

3.283E-01 

1.927E-01 

2.350 

2.472E-02 

9. 89160E-01 

3 . 354E-01 

1.732E-01 

2.400 

2.219E-02 

9. 90331E-01 

3.426E-01 

1. 555F-0 1 

2.450 

1.990E-02 

9.91383E-01 

3.497E-0I 

1.394E-01 

2.500 

1.782E-02 

9.92325E-01 

3 . 569E-0 1 

1.249E-01 


r=i 


., su=i. 
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example use 

OF INCPO TO 

COMPUTE U-GUST 

INCREMENT DIST.» 

T AU=. 1+L/U f 

NOPMALIZEO 

STQIZ6D 

DISTRIBUTION 

UNNORHALIZED 

NONSTOIZED 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGHA X 

DENSITY 


X 

DENSITY 

5.000 

4.341E-05 

9. 99982E-01 

7.137E-01 

3. 041E-G4 

5.050 

3. 841E-05 

9 .996846-01 

7.209E-01 

2.691E-0 4 

5.130 

3. 3986-05 

9. 99986E-01 

7.280E-01 

2. 381E-0 4 

5.150 

3. C07E-05 

9. 59988E-01 

7.3516-01 

2. 1C 66— 04 

5.200 

2.660E-05 

9. 99989E-Q1 

7.423E-01 

1. 863E-04 

5.250 

2. 353E-05 

9. 99993E-01 

7.4946-01 

1.649E-04 

5.300 

2.0S2E-05 

9. 99991E-01 

7. 565 E-01 

1.4596-04 

5.350 

1.842E-05 

9. 999926-01 

7.637E-01 

1.290E-04 

5. <>00 

1.630E-05 

9. 99693E-01 

7.708E-01 

1.142E-04 

5. <>50 

1.442E-05 

9. 99994E-01 

7.7806-01 

1.010E-04 

5.500 

1.276E-05 

9. 99995E-0 1 

7.8516-01 

8.937E-05 

5.550 

1. 1296-05 

9. 99995 E- 01 

7 • 922E-Q1 

7.907E-05 

5.600 

9.985E-06 

9.999966-01 

7 • 994E-01 

6.995E-05 

5.650 

8. 9346-06 

9. 99996E-0 1 

8.0656-01 

6.189E-05 

5. 700 

7. 816E-06 

9. 99997E-01 

8.136E-01 

5.475E-05 

5.750 

6. 915E-06 

9. 99997E-01 

8.2086-01 

4. 844E-05 

5.000 

6.118E-06 

9.999986-01 

8 . 279E-01 

4.2866-05 

5.850 

5.413E-06 

9.999986-01 

8.3516-01 

3.7926-05 

5.900 

4.7896-06 

9 • 99998 E-01 

8.4226-01 

3.355E-05 

5.950 

4. 2376-06 

9.999986-01 

8.493E-01 

2.968E-05 

6.000 

3.7486-06 

9. 99998 E- 01 

8.5656-01 

2. 626E-0 5 

6.050 

3.316E-06 

9.999996-01 

8.6366-01 

2. 323E-05 

6.100 

2.9346-06 

9.999996-01 

8.7076-01 

2.055E-05 

6.150 

2.5966-06 

9.999996-01 

8.779E-01 

1. 818E-05 

6.200 

2.2976-06 

9. S9959E-01 

8.850E-01 

1.6096-05 

6.250 

2.0326-06 

9.999996-01 

8.9216-01 

1.423E-05 

6.300 

1.7986-06 

9.999996-01 

8.9936-01 

1.2596-05 

6.350 

1. 590E-06 

9.996996-01 

9.0646-01 

1. 114E-05 

6. <>00 

1.4C7E-06 

9.999996-01 

9.136E-01 

9.857E-06 

6. <>50 

1.2456-36 

9.999996-01 

9.207E-01 

8.72 IE-0 6 

6.500 

1.1C1E-06 

1.000006*00 

9.278 E-01 

7. 716E-0 6 

6.550 

9. 7446-07 

1.C00C0E+00 

9.350E-01 

6.826E-06 

6.600 

8.621E-07 

1. COCOOE+ 00 

9.421E-01 

6.039E-06 

6.650 

7.6276-07 

1.000036*00 

9.492E-D1 

5.3436-06 

6.700 

6.7486-07 

1.00C03E*00 

9.564E-01 

4.727E-06 

6.750 

5. 97C6-37 

1.COC03E+03 

9. 6356-01 

4.182E-06 

6.800 

5. 282E-07 

1.00CQ06+03 

9. 707E-01 

3.7036-06 

6. 850 

4. 6736-07 

1. COOOOE+OO 

9.778E-01 

3.27 4E-C6 

6.930 

4.1346-07 

1. COOOOE+OO 

9.8496-01 

2.896E-06 

6.950 

3.6586-07 

1. COGOOE+OO 

9.9216-01 

2.563E-06 

7.000 

3.2366-07 

1. 000006*00 

9. 992E-01 

2.267E-06 

7.050 

2. 863E-07 

1. 000006*00 

1.C06E+00 

2.006E-06 

7.100 

2.5336-07 

1.000006*03 

1. 0136+00 

1.775E-06 

7.150 

2.241E-37 

1 • G0C00E*09 

1.0216*00 

1.570E-06 

7.200 

1.983E-07 

l.COCOOE*OQ 

1.0286*00 

1.389E-06 

7.250 

1.7546-07 

1.000006*00 

1.035E+00 

1. 229E-06 

7.300 

1 • 55 2E-07 

1. COCO 06*00 

1.0426*00 

1. 0876-06 

7.350 

1,37 3E-07 

1. COOOOE+OO 

1 .t 49E + 00 

9.619E-07 

7.«>00 

1.2156-07 

l.COCOGE+OO 

1. 0566*00 

8.511E-07 

7.450 

1. 0756-37 

1. 00 0006*00 

1.063E+00 

7.530E-07 

7.500 

9.509E-08 

1. C0030E+00 

1. 071E+00 

6.662E-07 


R=1 


.1 SU=1. 
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EXAMPLE USE OF INCPO TO COMPUTE U-GUST INCREMENT GIST., TAU=.i*L/U, R=l. , SJ*1. 


NORMALIZED 

STOIZEO 

DISTRIBUTION 

UNNORMALIZED 

NONSTOIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGKA X 

DENSITY 


X 

OENSITY 

2.500 

1.782E-02 

9. 62325E-01 

3 . 569E-01 

1.249E-01 

2.550 

1.595E-02 

9. 53168E-01 

3.64CE-01 

1.117E-01 

2.600 

1.425E-02 

9. 63622E-01 

3.711E-01 

9.986E-02 

2.650 

1.273E-02 

9. 64S96E-01 

3.783E-01 

8.9186-02 

2.700 

1. 136E-02 

9.65198E-01 

3.854E-01 

7. 958E-02 

2.750 

1.013E-02 

9.55735E-01 

3. 925E-01 

7.095E-02 

2. 600 

9. 023E-C3 

9. 66213E-01 

3.997E-01 

6. 321E-02 

2.850 

8.033E-03 

9 . 66639E-01 

4.068E-01 

5.628E-02 

2.900 

7.147E-Q3 

9.570186-01 

4.140E-01 

5.007E-02 

2.950 

6.355E-03 

9. 57355E-01 

4 . 211E-01 

4, 452E-02 

3.000 

5.648E-03 

9. 67655E-01 

4. 282E-C1 

3.957E-02 

3.C50 

5.0176-03 

9. 57621E-01 

4.354E-01 

3.515E-02 

3.100 

4.455E-03 

9 . 6 815 8E-01 

4.425E-01 

3.121E-02 

3.150 

3.9546-03 

9. 58368E-01 

4.496E-01 

2.770E-02 

3.200 

3.507E-03 

5. 58554E-01 

4.568E-01 

2.457E-02 

3.250 

3. 111E-03 

9.68719E-01 

4. 639E-01 

2.179E-02 

3.300 

2.7586-03 

9. 68866E-01 

4.711E-01 

1.932E-02 

3.350 

2.445E-03 

9. 58696E-01 

4.782E-01 

1.713E-02 

3. LOO 

2.1666-03 

9. 99111E-01 

4.853E-01 

1.518E-02 

3.450 

1. 9196-03 

9.59213E-01 

4. 925E-01 

1.345E-02 

3.500 

1.70GE-03 

9 • 59303E-01 

4.996E-01 

1.191E-02 

3.550 

1. 50 65-0 3 

9. 59383E-01 

5.C67E-01 

1.055E-02 

3.600 

1.333E-03 

9.694546-01 

5 • 139E-01 

9. 341E-0 3 

3.650 

1.181E-33 

9. 99517E-01 

5 • 21 0E-01 

8.270E-03 

3.700 

1.045E-03 

9.595726-01 

5.282E-01 

7.322E-03 

3.750 

9. 25 IE-04 

9. 996226-01 

5.353E-01 

6.481E-03 

3.800 

8.189E-04 

9.596656-01 

5.424E-01 

5. 7376-03 

3.850 

7 • 248E-04 

9 . 59704E-01 

5.496E-01 

5. 077E-03 

3.900 

6.414E-04 

9. 59738E-01 

5.567E-01 

4.494E-03 

3.950 

5.6776-04 

9. 59768E-01 

5.638E-01 

3.977E-0 3 

4.000 

5 . 023E-04 

9. S9795E-01 

5.710E-01 

3.519E-03 

4. 050 

4. 445E-04 

9. 69818E-01 

5.781E-01 

3.114E-03 

4.100 

3. 933E-04 

9. 59839E-01 

5.852E-01 

2. 756E-03 

4.150 

3.480E-04 

9.59858E-01 

5 . 924E-01 

2.438E-03 

4.200 

3.0806-04 

9. 59874E-01 

5.995E-01 

2. 157 E- 03 

4.250 

2.7256-04 

9. 69889E-01 

6.067E-01 

1.909E-03 

4.3C0 

2.411E-04 

9. 99602E-0 1 

6.138E-01 

1.689E-03 

4.350 

2.133E-04 

9. 59513E-01 

6.209E-01 

1.494E-03 

4.400 

1. 887E-04 

9. 696236-01 

6.281E-01 

1.322E-03 

4.450 

1.670E-04 

9.99632E-01 

6.352E-01 

1.170E-03 

4.500 

1 . 477E-04 

5. 6 9640E-01 

6.423E-01 

1.035E-03 

4.550 

1.3076-04 

9.99947E— 01 

6. 495E-01 

9. 157E-04 

4.600 

1. 1566-04 

9. 69653E-01 

6.566E-01 

8.10 2E-04 

4.650 

1.0236-04 

9. 59958E-01 

6. 638E-01 

7.16 8E-04 

4.700 

9.052E-05 

9. 99663E-01 

6.7096-01 

6.342E-04 

4.750 

8.0096-05 

9 . 59567E-01 

6.780 £-01 

5.611E-04 

4.800 

7.0 86E-05 

9. 99671E-01 

6. 852E-01 

4. 964E-04 

4.850 

6.2696-05 

9. 69674E-01 

6. 923E-01 

4.392E-04 

4.900 

5.5466-05 

9. 99677E-01 

6 . 994E-01 

3. 886E-04 

4.950 

4.90 7E-0 5 

6. 69580E-01 

7 . 066E-01 

3.438E-04 

5.000 

4.3416-05 

9. 99682E-0 1 

7.137E-01 

3. 041E-04 
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EXAMPLE USE 

OF INCPO TO 

COMPUTE U-GUST 

INCREMENT OIST., 

TAU=.1*L/U, 

NORMALIZED 

STOIZEO 

DISTRIBUTION 

UNNORMALIZEO 

NONSTOIZEO 

VARIABLE 

PROBABILITY 

FUNCTION 

VARIABLE 

PROBABILITY 

X/SIGMA X 

DENSITY 


X 

DENSITY 

7.500 

9.5C9E-06 

1.00C03E+00 

1.071E+00 

6.662E-07 

7.550 

8.41 35-96 

l.COCOOE+OO 

1.078E+0Q 

5.894E-07 

7.600 

7.443E-C8 

1. G 0 OQOE+OO 

1.085E+00 

5.214E-07 

7.650 

6. 5852-08 

l.GOOOOE+OO 

1.092E+0Q 

4.613E-07 

7.700 

5.8265-08 

1. COOOOE + OO 

1.099E+00 

4.081E-07 

7.750 

5.154E-Q8 

1.0QC03E+00 

1.106E+00 

3.611E-07 

7.000 

4 . 560E-08 

1. COOOOE + OO 

1. 113E+Q0 

3.195E-07 

7.850 

4.C35E-08 

1. GOOGOE+GO 

1.121E+00 

2.826E-07 

7.900 

3. 570E-08 

1. COOOOE + OO 

1.128E+00 

2.501E-07 

7.950 

3. 158E-08 

i.OOOOOE+OO 

1.135E+00 

2.212E-07 

8.000 

2.794E-06 

l.OOGOOE+OO 

1.142E+00 

1.957E-07 

8.050 

2.472E-08 

l.COCOOE+OO 

1. 149E+00 

1.732E-07 

6.100 

2. 18 7E-0 8 

l.COCOOE+OO 

1. 156E+00 

1.532E-07 

8.150 

1.935E-08 

i. c o oooe+oo 

1 « 163E+00 

1.356E-07 

8.200 

1.712E-08 

l.COCOOE+OO 

1.170E+00 

1. 199E-0 7 

8.250 

1. 515E-08 

l.COCOOE+OO 

1.178E+00 

1.061E-07 

8.300 

1. 340E-08 

1. GOCOOE+OO 

1.185E+00 

9. 387 E- 06 

6.350 

1. 185E-08 

1. C0030E+00 

1.192E+00 

8.305E-08 

8.400 

1.049E-08 

1. COOOOE+OO 

1.199E+00 

7.348E-0 8 

8.450 

9 . 279E-39 

1. COCOOE+OQ 

1.206E+00 

6.501E-08 

8.500 

8. 210E-09 

l.COCOOE+OO 

1.213E+00 

5.751E-C 6 

8.550 

7.263E-09 

l.OOOGOE+QO 

1.220E+00 

5.D88E-08 

3.600 

6.426E-09 

1.C0CD9E+C0 

1.2285+00 

4.502E-08 

8.650 

5.6355-09 

1 • 0 0 G OOE + QQ 

1.235E+00 

3.983E-0 8 

8.700 

5. 03C5-09 

l.oaGoaE+oo 

1.242E+00 

3.524E-08 

8.750 

4.45CE-09 

1 • CO COOE+OO 

1.249E+00 

3.118E-08 

8.800 

3.9375-09 

1 . 000002+00 

1.256E+00 

2.758E-08 

8.850 

3.4335-09 

1 . 00 CCOE + OO 

1.263E+00 

2.440E-08 

8.900 

3.082E-09 

i.oocooe+oq 

1 . 27CE + 00 

2.159E-08 

8.95G 

2. 727E-0 9 

l.OOCOOE+OO 

1.278E+00 

1.910E-06 

9. COO 

2.4125-09 

1.00 C COE + OQ 

1.285E+00 

1.690E-0 8 

9.C50 

2. 134E-09 

1. QOCOOE+QO 

1 • 292E+00 

1.495E-08 

9.100 

1. 888E-09 

l.COCOOE+OO 

1.299E+00 

1.323E-0 8 

9.150 

1.67 1E-0 9 

1. COCCCE+OO 

1 • 30 6E + 0 0 

1.170E-08 

9.200 

1.478E-Q9 

l.OOCOOE+OO 

1.313E+00 

1.035E-0 8 

9.250 

1.30 8E-09 

l.OQCOJE+OO 

1.32CE+B0 

9.160E-09 

9.300 

1. 1575-09 

1. GOGOOE+OO 

1.328E+00 

8.104E-09 

9.350 

1. 0235-09 

1. COGCOE+OQ 

1. 335E+00 

7.1705-09 

9.400 

9. 055E-10 

1. COOOOE+OO 

1 . 342E+00 

6.343E-09 

9.450 

8.011E-10 

1.00 GQOE+CO 

1.349E+00 

5. 612E-0 9 

9.500 

7. 0885-10 

1. COCOOE+OO 

1 . 356E+00 

4.966E-09 

9.550 

6. 270E-1Q 

l.COCOOE+OO 

1 • 363E + 00 

4.393E-09 

9.600 

5.5465-10 

1. GOGOOE+OO 

1.37CE+00 

3.887E-09 

9.650 

4.9385-10 

1. COOOOE+OO 

1 • 377E+00 

3.438E-09 

9.700 

4.343E-10 

l.OCCOOE+OO 

1.385E+00 

3.042E-05 

9.750 

3. 341E-10 

l.OOOCOE+OO 

1. 392E+00 

2.691E-09 

9.600 

3.3985-10 

1. COOOOE + OO 

1.399E+00 

2.381E-09 

9.850 

3.00 7E-10 

1. 000805+00 

1.406E+03 

2.107E-09 

9.9C0 

2.660E-10 

l.COCOOE+OO 

1.413E+00 

1.864E-0 9 

9.950 

2.353E-10 

1. COOOOE + OO 

1.420E+00 

1.648E-09 

10.000 

2. 083E-10 

l.COCOOE+OO 

1. 427E+00 

1.459E-09 


1 


.» su 



174 


Program EIGU 

EIGU is a program which computes eigenvalues and eigenfunctions of 
linear system responses to the longitudinal component of the non-gaussian 
turbulence model. The example presented here shows the calculation of 
the first eigensolution for a system having the transfer function 


H(s) 


1 +-C 1 -i 

s - (1 + i) s - (1 - i) 


(Al) 


The parameters of the problem are: 

a = .3048 (m/sec) 
u 

L u = 200. (m) (A2) 

U =100. (m/sec) 

Card Decks 

The following card decks were required to produce the sample calcu- 
lation presented here: 

EIGU 

attached subroutines. 

(All of the decks required by program EIGU have been given the identifica- 
tion tag EIGU and will be found listed consecutively with program EIGU 
at the end of this appendix.) 

Input Data 

The following five data cards were used to produce the example 
presented here. The meaning and format of these cards is described by 
comments in program EIGU. 
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1 

11 

21 

31 

41 

51 

61 

F ' 

1 

1.000C 

OOOOOOE*00 

1.0000 

OOOOOOE*01 

' 

-i.oo.do 

OOOOOOE+OO 

-1.0000 

.3048 

1 

100. 

200. 

. 





Resiil ts 

The above named card decks were compiled, loaded, and executed on 
the University of Washington CDC-6400 computer system. Storage require- 
ment including I/O buffers and all system programs was 17,664 8 words. 
Execution, including dompilation and loading, required 11 10 seconds of 
central processor time. The following printer output was generated. 


BEGIN ITERATION FOR EIGENVALUE ANO EIGENFUNCTION NO. 1 
TURBULENCE PARAMETERS! 

STO. OEV. = .305 NT AS = 100.000 SCALE LENGTH * 200.000 

VEHICLE PARAMETERS! 

COEFFICIENTS POLES 

1. 000 3E+00 1.0 00 QE+00 1.0000E+00 1.0000E+00 

SYSTEM RESPONSE VARIANCE = 3. 1444UE-01 


ITERATION 

NO. 

1. 

ESTIMATED 

EIGENVALUE 

IS 

1. 1279131E-01. 

COEVP 

= 

1.000E+00 

ITERATION 

NO. 

2. 

ESTIMATED 

EIGENVALUE 

IS 

2 . 316 9420 E-01. 

IDEVP 

X 

1. 054E+00 

ITERATION 

NO. 

3. 

ESTIMATED 

EIGENVALUE 

IS 

5 . 5995409E-01 . 

IOEVP 

= 

1.417E*0Q 

ITERATION 

NO. 

4. 

ESTIMATED 

EIGENVALUE 

IS 

5. 65 86583 E-01. 

IDEVP 


1. 056E-0 2 

ITERATION 

NO. 

5. 

ESTIMATED 

EIGENVALUE 

IS 

5. 65 7 92 3 5 E-01. 

IOEVP 

= 

1.299E-04 

ITERATION 

NO. 

6. 

ESTIMATED 

EIGENVALUE 

IS 

5. 6578378E-0 1 . 

IOEVP 

x 

1.513E-05 

ITERATION 

NO. 

6. 

estimated 

EIGENVALUE 

IS 

9.98C4141E-01. 

IDEVP 

= 

7 . 640E-0 1 

ITERATION 

NO. 

7. 

ESTIMATED 

EIGENVALUE 

IS 

5. 5910282E-01. 

IOEVP 

X 

4. 398E-0 1 

ITERATION 

NO. 

8. 

ESTIMATED 

EIGENVALUE 

IS 

5.5924255E-01. 

IDEVP 

= 

2.499E-04 

ITERATION 

NO. 

9. 

ESTIMATED 

EIGENVALUE 

IS 

5. 592431 6E-01, 

IOEVP 

= 

1.078E-06 


El = S . 866E+5Q) 
El * 1.72QE-02) 
El = 1.183E-02I 
El = 3.261E-04I 
El = 2.3D9E-0 5) 
El = 1.75 RE-06) 
El = 1.758E-06) 
El = 2.27 7E-0 2I 
El = 2. 8<»2E-Q 5) 
El = 1.799E-0 6) 
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EIGENVALUE NO. 1 IS 5.592431EE-Q1 

FRACTION OF RESPONSE VARIANCE OUE TO THIS EIGENVALUE IS .99463 
FRACTION OF RESPONSE VARIANCE OUE TO FIRST 1 EIGENVALUES IS .99463 


X 

EIGENFUNCTION 

o.ooco 

0. 

.0100 

7.0 28587282 9E -03 

.020 0 

1.4C55442114E-02 

.0300 

2.1078851805E-C2 

.0450 

3. 160 3 814298 E- 02 

.0688 

4.B233469059E-02 

.1588 

1.10EC040718E-01 

.3925 

2.60E4371720E-01 

.7532 

4. 382616 950 2£“C1 

1.2436 

5.5772357582E-01 

1.6600 

5. 606385467 IE -01 

2.6071 

4.7467481916E-C1 

3.4827 

3. 677640 2814E-01 

4.4830 

2.7839939679E-C1 

5.6153 

2.0 852933382E-01 

6.5713 

1.52€6666688E-fll 

8.2603 

1.0799291389E-B1 

9.7720 

7.4001491704E-02 

11.4176 

4.9038754620E-02 

13.1918 

3.1470795013E-02 

15.0874 

1.9593129325E-02 

17.1183 

1.1792418679E-02 

19.2695 

6.8870 511724E-03 

21.5571 

3.887450C871E-03 

23.9732 

2.1248914355E-C3 

26.5083 

1.127442C928E-C3 

29.1811 

5.77960 94088E-04 

31.9719 

2.8766772923E-04 

34.9013 

1.3830 17 6211E-04 

37.9594 

6.4387963348E-05 

41.1340 

2.911 5511114E-05 

44.4487 

1.2712560531E-05 

47.8791 

5. 39248075 84 E-06 

51.4505 

2. 20815841 50 E-06 

55.1365 

9.7865581544E-07 

58.9646 

3.3743317791E-07 

62.9212 

1.2548984137E-C7 

66.9911 

4.5365498615E-08 

71.2D44 

1.58224CC221E-08 

75.5300 

5.3656 784205E-09 

SO. 0000 

1.75510717 53 E-09 


FIRST 1 EIGENVALUES ARE I 
1 5.5924316E-01 

REMAINING EIGENVALUES SQUAREC SUM TO 1. 6881512E-Q3 

THE ABOVE EIGENVALUES ACCOUNT FOR .99463 OF THE RESPONSE VAR. 

LARGEST POSSIBLE REMAINING EIGENVALUE IS 4. 10 87118E-02 
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Program EIGVW 

EIGVW is a program which computes eigenvalues and adjoint eigenfunc- 
tions of linear system responses to the vertical or lateral components of 
the non-gaussian turbulence model. The example presented here shows the 
calculation of the first eigensolution for a system having the transfer 
functi on 


H(s) = 


1 +i , 1 - i 

s - (1 + £) s - (1 -i) 


(A3) 


The parameters of the problem are 

a = .3048 (m/sec) 

0) 

L = 200. (m) (A4) 

u = 100. (m/sec) 


Card Decks 

The following card decks were required to produce the sample calcu- 
lation presented here: 

EIGVW 

attached subroutines. 

(All of the decks required by program EIGVW have been given the identifi- 
cation tag EIGVW and will be found listed consecutively with program 
EIGVW at the end of this appendix,) 

Input Data 

The following five data cards were used to produce the example 
presented here. The meaning and format of these cards is described by 



K 


et a i 


BacKarouna mTormacion ana user w 
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comments in program EIGVW. 


1 

11 

21 

31 

41 

51 

61 

F 

1 

i.OOQC 

QOOOOOE-tQO 

1.0000 

OQOQOQE+OO 

-1.0000 

OQOQOQE+OQ 

-1.0000 

.3048 

1 

100. 

200. 








to 00 fl 00£«-00 


Results 

The above named card decks were compiled, loaded, and executed on 
the University of Washington CDC-6400 computer system. Storage require- 
ment including I/O buffers and all system programs v/as 23,165 8 words. 
Execution, including compilation and loading, required 18jo seconds of 
central processor time. The following printer output was generated. 


BEGIN ITERATION EOR EIGENVALUE AND EIGENFUNCTION NO. 1 
TURBULENCE PARAMETERS! 

STD. DEV. = .305 NT AS = 100.000 SCALE LENGTH = 200.000 

VEHICLE PARAMETERS! 

COEFFICIENTS POLES 

i.OQGQE+GQ l.OOQOE+OO 1.0000E+00 1.0000E+00 

SYSTEM RESPONSE VARIANCE = 2.847561E-01 


ITERATION 

NO. 

1. 

ESTIMATED 

P 

EIGENVALUE 

IS 

1. 127913 IE-01. 

IDE VP 

= 

1.0DCE4-00 

ITERATION 

NO. 

2. 

ESTIHATEO 

0 

EIGENVALUE 

IS 

2.2656324E-C1. 

(OEVO 

- 

1. GOGE+Q 0 

ITERATION 

NO. 

3. 

ESTIMATED 

P 

EIGENVALUE 

IS 

5.2661024E-01. 

CDEVP 

=: 

3. 669E*0 0 

ITERATION 

NO. 

4. 

ESTIMATED 

Q 

EIGENVALUE 

IS 

5.4074826E-01. 

(OEVO 

= 

1. 387E+0 0 

ITERATION 

NO. 

5. 

ESTIHATEO 

P 

EIGENVALUE 

IS 

5. 3623562E-0 1. 

(DEVF 

=: 

1. 828E-C 2 

ITERATION 

NO. 

6. 

ESTIHATEO 

Q 

EIGENVALUE 

IS 

5.4Q59088E-01. 

(DEVO 

= 

2. 910E-D4 

ITERATION 

NO. 

7. 

ESTIHATEO 

P 

EIGENVALUE 

IS 

5.3619C3GE-01. 

CDEVP 


8.452E-05 

ITERATION 

NO. 

8. 

ESTIMATED 

a 

EIGENVALUE 

IS 

5, 4058727E-0 1, 

(OEVO 

= 

6.682E-06 

ITERATION 

NO. 

8. 

ESTIMATED 

Q 

EIGENVALUE 

IS 

9.9717091E-01. 

(DEVO 

= 

8. 446E-01 

ITERATION 

NO. 

9. 

ESTIMATED 

P 

EIGENVALUE 

IS 

5. 2998707E-01. 

(OEVP 

= 

1. 157E-0 2 

ITERATION 

NO. 

10. 

ESTIMATED 

Q 

EIGENVALUE 

IS 

5.3070587E-01. 

(DEVO 


4.678E-01 

ITERATION 

NO. 

11. 

ESTIMATED 

P 

EIGENVALUE 

IS 

5.3037573E-01. 

IDEVP 

=s 

7. 333E-04 

ITERATION 

NO. 

12. 

ESTIMATED 

Q 

EIGENVALUE 

IS 

5.3070909E-01. 

(DEVO 

— 

6. 053E-Q6 

ITERATION 

NO. 

13. 

ESTIMATED 

P 

EIGENVALUE 

IS 

5.3037603E-01. 

(OEVP 

= 

5 . 765E-07 


El = 8. 866E+5Q ) 
El = 2.282E-02I 
El = 1. 836E-02 J 
El = 1. 243E-02 ) 
El = 6.531E-04I 
El = 6.816E-05J 
El = 7. 757E-06) 
El = 7.889E-07J 
El = 7.912E-07I 
El = 7 • 785E-G4 I 
El = 2.695E-02) 
El = 8.2C3E-05I 
El = 7. 583E-06) 
El = 8. 100 £-07) 
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EIGENVALUE NO. 1 IS 5.30S4256E-01 

EVP = 5. 3G37603E-01 EVQ = 5.3C70909E-0! RELATIVE DIFFERENCE = 6.278E-Q 4 


FRACTION OF RESPONSE VARIANCE CUE TO THIS EIGENVALUE IS .98848 
FRACTION OF RESPONSE VARIANCE OUE TO FIRST 1 EIGENVALUES IS .98848 


X 

8.0000 
.0100 
. 0200 
.0300 
.0490 
.0688 
.1508 
.3925 
.7532 
1.2436 
1.3600 
2.6071 
3.4827 
4.4830 
5.6153 
6. 8713 
8.2603 
9.7720 
11.4176 
13.1918 
15.0874 
17.1183 
19.2695 
21.5571 
23.9732 
26.5C83 
29.1811 
31.9719 
34.9013 
37.9594 
41.1340 
44.4407 
47.8791 
51.4505 
55.1365 
58.9646 
62.9212 
66.9911 
71.2044 
75.5300 
80.0000 


FUNCTION OF 1ST ARG 

0 . 

6.73245110 24E-03 
1.3482 34 3875E-02 
2.0247587919E-C2 
3.04196 92 969E- 02 
4.6571979135E-02 
1.0764 14 110 4E-01 
2.59429 80 425E-31 
4.4146159714S-01 
5 .586 6644871 E- 01 
5.5233306103 E-Gl 
4. 65756935 83 E- 01 
3.6835976265E-G1 
2.8 544936694E-01 
2.1516724290E-C1 
1.570 214-4 891E- Cl 
1.1086763418E-C1 
7.5981065944E-02 
5.0358752968E-C2 
3.23175650 84E-Q2 
2.0120179993E-02 
1.2109644039E-02 
7.07231B5967E-03 
3.992025E440E-03 
2.1820527423E-03 
1.1577712G14E-03 
5.9350855992E-04 
2.9540622495E-04 
1.42022191 91E-04 
6.61200516936-05 
2.98687420 26E- 05 
1.305455 9279E-05 
5. 5375428 735E- 06 
2.2675596710 E-06 
9.0 229 54 51 70 E-07 
3.4651553914E-07 
1.2886562009E-27 
4. 658 5 867398 E -3 8 
1.6248035 647E-08 
5.513019530 9E-09 
1.8023209848E-C9 


FUNCTION OF 2ND ARG 

0 . 

1.0461591 10 9E- 02 
2.0894505585E-02 
3.1296288211 E- 02 
4. 68353 10 860 E- 02 
7.1268468 97 6E- 02 
1.61 44 901928 E- 01 
3. 69580 22 178 E-01 
5.90183030496-01 
6. 87671 21 324 E- 01 
5.9129268019E-01 
3.7291355406E-01 
1.5671227976E-01 
4.9083324351E-03 
-8.61850 86779E-0 2 
-1 . 33712 81284E-01 
-1. 50 10 589158 E-01 
-1.4449 874249E-0 1 
-1.25 795042 15 E-01 
-1.01505 26 67 8E-01 
-7.701450 3724E-02 
-5.5263694482E-02 
-3 .77 881 99 842 E-0 2 
-2. 4638804756E-02 
-1.53779 86 136 E-0 2 
-9.22288 21 4 84E-03 
-5 .30 27 3 23 990 E-0 3 
-2.9330489 023 E-0 3 
-1. 5632781479E-03 
-8.0106B0697 IE-04 
-3 . 96 6270 2230 E-0 4 
-1. 88657 134 53E-04 
-8. 6993337 6 04 E-0 5 
-3. 8557179289 E- 05 
-1.65476127 54 E-05 
-6. 835556380 9E-06 
-2.7268259Q85E-06 
-1.0544685683E-06 
-3.9257897507E-0 7 
-1.4176732 1 68E-07 
-4.9291119477E-08 


FIRST 1 EIGENVALUES ARE* 

1 5. 3054256E-01 

REMAINING EIGENVALUES SQUARED SUM TO 3. 280 6552E-03 

THE ABOVE EIGENVALUES ACCOUNT FOR .98848 OF THE RESPONSE VAR. 

LARGEST POSSIBLE REMAINING EIGENVALUE IS 5. 7277004E-02 
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Program RLEVX 

RLEVX is a program which computes the level crossing frequency of a 
i inear system response to the non-gaussian turbulence model. 'The example 
presented here, in order to be as simple and compact as possible, utilizes 
the first and second eigensolutions of the response and its first deriva- 
tive which were presented in the numerical example section of this report. 
These solutions were assumed to represent the total non-gaussian portion 
of the vehicle response. 

Card Decks 

The following card decks were required to produce the sample calcu- 
lation presented here: 

RLEVX 

CF2 

COEF 

FFT 

INRPDT 

INVR 

SCALE 

Input Data 

The 175 data cards listed on the next three pages of this appendix 
were used to produce the example presented here. The meaning and format 
of these cards is described by comments in program RLEVX. 

Results 

The above named card decks were compiled, loaded, and executed on 
the University of Washington CDC 6400' computer system. Storage require- 



merit including I/O buffers and all system programs was 44,550 8 words. 
Execution, including compilation and loading, required 53 10 seconds of 
central processor time. Printer output generated by the program. is 
presented following the listing of input data on the next few pages. 
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ill 


M 


PROGRAM RLEVX USING 4 El GEN SOLUTIONS FR 


AND CONJUGATE EIGENFUNCTIONS 


OOCCflfiOaOOOE-02 

brococooae 3 E-o 2 


EXAMPLE OF 
41 
2 

EIGENVALUE 
0. 

l.flOt 
2.90C 

3.00CWrGQ030C0f!aE-02 
4.4 99j9°99 9S99999E-0 2 
6. S14|2F6S3949826E-02 
1.53 2(8 58155548 4|lE-01 
3.725j9r89543684l5E-Dl 
7.1OCj2961012715|lE-01 
1.16e|i015056e05|iE+00 
1.74 3,42 5 9 77641 8I4E + G0 
2 • 440.2 646 8 8 8265j6£ + 0 0 
3.25E7C74795704I4E4-CQ 
4.18 5i0 80 44 49349;2E + 00 
5.24 42 90051330 21 E+QG 
6.414548 773 9 857|0E + 0 0 
7. 70 8 5 2519 60 32 35 E *00 
9. 11 6669 67 597 887 E* 00 
1.0 64941 2913676I9E +01 
1.23 01760 230 934jlEt 01 
1.406,695320426376 + 01 
i.595'8f’673 371723£ + 01 
1.79611460€7792 I 9E + 01 
2. 0091P27016352|9£+01 
2. 23 40 51204447 2a E+01 
2. 47 CC 6 3 92 6 847 60 E +01 
2. 716889111224 6|4E + ai 
2. 97 66 90409354 12E+01 
3. 25 13 92275296 3b E+01 
3. 53 60 54549194 41 E+01 
3. 83 1|5 606966622b E+01 
4. 14 CO 99652125 4]2E+01 
4 .4593 94 37 5 3223|6E + 01 
4.79i;8100123507|4E + 01 
5. 134:6933 11 2767|lE + 01 
5.49118562987023E+01 
5.85943835641965E+01 
6.2382265046840jlE+01 
6.63'3559127985|9E + G1 
7. 03 2, 9 32636791 9[7 E + 01 
7.44893872 64716 2E + U 1 
lEIGENVALUEi ANO CONJUGATE EIGEN 
0. i I 

i.oocbcooocoooopE -02 

2.0QDiQO0G0CQi:!!C l 0E-02 
3.0OC'Or000C0CC0!0E-C2 
4.499 999999 9999j9E-0 2 
6.8142 86 83 94 9 82i5E-0 2 
1 • 532:8 58 1 5 5 5 48 411 E-0 1 
3. 72 5968954368 45 E-01 
7. 10 C!2 96101271 SilE-01 
1.16 8:1 C150566 35I1E + 00 
1 . 7V34259 7 76418|4E + G 0 
2. 440264688 8 265BE+QC 
3. 25670747957 044E+00 
4.18 5jQ 80444934 9(2 E+00 


NO. 1 3. 


jl . □ 33 80 4 53 4 841 44E' 
». 12091576 661881 E' 
(9.2389634178515 3E' 
j2.0672fll67699628E‘ 
|4. 697216415 53 622 £■ 
J2. 286267329 99 262E' 
1 .17667551347099 E- 
|3. 1523568 9(867 81 9E 1 
5. 06897531032767E' 
5. 675262556 24 03 5E - 
5.19197439I&08305E- 
4. 2451655 llS 05992 E- 
3. 2777110 li7 328615' 
2.4907999C!695487E- 
1. 86462553522839E- 
381850E- 
090 079E- 


PI 


GM NUHERiq, 


i. 31750567 
'8. 35926886 


.416 59 7 36)1794 96E“ 
• 60 21 972 9:9576 91E- 
■|5. 4870250 2:4 95 2 94E- 
-|7.66173407|0 83739E- 
~iS. 638 93 74 8*285 316E- 
-j6. 3 28499 8 2|j42 144E- 
-i4« 4604966 7j6 14 021E■ 
j2.55C25463732295E• 
1.297664080071Q2E- 


5. 90696 5 121745 958E“ 
!2•33464304&22154E■ 
|7.40Q24255j770607E- 
1.2713181 1(5 24769E 1 
|5. 830780 18 67 6558E" 
8.2356726722B282E- 
6.09255924741253E- 
3. 60 5 5246 3 3 7956 6E- 
1. 85513385142 3 41E" 
8.57487222683428E- 
3. 61763259,1 76069E- 
|l. 38814280 111638 E- 
|4. 87069325402085E- 
|1. 5 861 6695,717 02 IE" 
NO. 2 


04 
Q4| 
0 4 
03 

0 3 
02 

01 
01 
Oil 
Cl 
Oil 
Oil 
oil 
oil 
oil 
oil 
C2| 
02 : 
0 2! 
P4l 
03 
03 
03 
03 
03 

03 

04 

04 

05 

05 

06 
06 
06 
06 
06 
07 
0 71 
0 7[ 
0 8 ' 
os; 


[170000000 0! 

0. 

-1.729' 
-6.874 
-1.5360 
-3.42l| 
-7. 71 6j' 
-3.660 
-1.774 
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AL EXAMPLE 


0E+00 


917 14 84716 8E 
0 7578743 960E 


31177532781 
3645565766 
|4357 083139 
8756341769 
1193178845 
4. 41 3]0 639730669 
-6. 526712 715 97 395E 
-6. 49494662 8 99258E 
-4. 85 113 17 11607 99 It 
-2. 637I.628C 3987694E 
-5.8527967677065 
8. 413(334 2769991 
1.52813307568397 
1. 664|279 82 50 831 3E 
1.51907B09431097E 
1.292ll 941157212| 
1.064419746045 
8.447195620 98712| 


OF REPORT 


7E 
BE 
12 E 
BE 
1|4E 
12 E 


4.38i;8627485789 
2.8151406999436' 
1.6871755301689 
9. 55632383 B2349 I 0E 
5.15 2629 72 61939|6E 
2.6850C15217C23I5E 
1.35 7552C 9 98588BE 
6.71330037414992E 


FUNCTIONS 
10 • 

8. 69519530'805193E- 
[3. 3 9523 4 93(750 35GE- 
b.45416537300987E- 
|l.61536342{9C6318E- 
|3. 4893147311 93238E- 
Jl. 39148673i268830E- 
-13. 9303836 2fe 27 093E- 
-13. 835 8917 5(539 73 6£- 
-|6. 78939134, 014542E- 
-2.144 90 2 7 8(3 8695 3E- 
-]3. 83616057pl5668E- 
-I3.91568445981112E- 
-j7. 63839777(39770 8E 


3.259527C0191411E' 
1.53 96 35136 57 933E 
7.C568385393751DE' 
3.08558623572342E' 
1. 277(3 883023934loE' 
4. 83950261 39-»95iE' 
1 .692912 3 1 3928 JlE- 
5.083600 93577532E- 
1.15 6653 20 1 27 314E- 
8.572554485 54 4 6 7E‘ 
-1.1090514819289 1£> 

i.jo6oooooooo:oe+3o 

I 0* I 

-2.52815052235637E- 
-1. 004591 67608672E- 
-2.2452C 7 13071720E- 
-5.30016835 807367E- 
-1.12808927923015E- 
-5.355211212838C0E- 
-2. 61 8, 90546 807597c- 
-6.73452993806918E- 
- 1. 0 65,60 15 6451 943E- 
-1.175;8 17 7370 7561E- 
-1 • 0 122140 3 20 240 9E- 
-6.20i;016C7081083E- 
9. 9295656683965 1E- 


0 6 ! 
0 5i 
0 5| 
04, 
04j 
0 3! 


03 
0 3 
0 3; 
0 2 ! 
ozj 
0 2 
03 


-04 

-04 

-03 

-03 

-03 

-02 

-01 

•01 

•01 

■01 

01 

■01 

■02 

02 

01 

01 

■01 

01 

01 

•02 

02 

02 

•02 

02 

03 

03 

•03 

03 

04 
04 

04 

05 
05 

05 

06 
06 
07 

07 
09 

08 


•05 

■04 

04 

04 

03 
•03 
C2 
C2 
Cl 
01 
Cl 
C2 

04 
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u 

5.2442900513302 
6.414 5487739857! 
7.708 I 52519E0323 
9.1166696759788 
1«06<*9*»12913676| 
1.23C1760230934 
1. 4066 9532042631 
1.5958067337172 


1.796 

2.006 

2.234 

2.470 

2.718 


11146067792 

1027016352 

10512044472 

iD635268476 

3691112246 


2. 6766904063541 
3. 25 i!3 92 275256?! 
3. 53610545491944 
3.63lj5606966622! 


4. 14C 099 65 21254| 
4.4563943753223 
4. 791B 1001235071 
5.1348933112767 
5.4911856268702| 
5.8594383564196 
6.2362265046640 
6.6300559127685 


7.032 
7.446| 
111.1725 

(eigenvalue! 

0. 

1.00C 


19326367619 

19367264716 


21 > 

1E*0Q 
3E*0 0 
5£*00 
7E*00 
9£*Q1 
1E*01 
7E*01 
3E*01 
9£*01 
9E»01 
3E*01 
UE + O 1 
4E + 01 
2E*01 
0£*G1 
1E+01 
3£*0 1 
2E*01 
6E*0 1 
4£*01 
IE*?1 
3E*01 
5E*01 
IE + 01 
9E*01 
7E*Q1 
2E + 01 


loooooooooo 
2 . 000,0000000000 
3.0D010COGOCOOOO 
4.499,9999959699! 
6. 8 1 4j2 668394982 
1. 53 2'6 581565484 
3. 72519086543634! 
7. 10 0|2 96101271 s! 
1.16eil015056605! 
1.7434256776418 
2.44012 646888265 
3.2567074765704 
4.136:0804449349 
5.24 4j2 900513302 
6.414154877396570 
7.7085251960323 


9.116 

1.064 

1.230 


6696759788! 

9412913676 

ll760230634| 


1.4066953204263 


1.59 
1.796! 
2.006; 
2.234 
Z.47C 
2.71 el 
2.676 


8067337172, 
1146067792i 
1C 27016 352 
0512 0 44472 
106392684761 
[8891112246! 
6904053541 


3.251B922752563P 


PI 


97177922 
068857771 
50805539: 
71604951 
3559132U 
94485384 
14.08035325: 
|3. 89297788 
71570497 
ll. 44661071 
16.21005711 
49596625: 
36646736' 
19885313 
17493632 
04811163: 
8.22929508 
5.66523355 
3.39998958 
72421306 
16.91156204: 
|l. 65606254! 

.42273569 
17.217556761 
|5. 36292503! 

83773231 
[1. 11984106 


0E-02 
36-02 
OE-02 
9E-02 
5E-02 
IE-01 
5E-01 
lc-01 
IE* 0 0 
4E*Q0 
6E*0 0 
4E + 00 
2E+00 

:|ie*-oo 

E*00 
5E*C0 
7£*U0 
9E*ai 
1EV01 
7E+01 
3E*si 
9E*01 
9E*01 
0£*0 1 
9£*01 
4E*01 
26*01 

E*01 
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571035E- 
644510E- 
134367E- 
463764E- 
666842E- 
218987E- 
734462E- 
7940 0 9E- 
335306E- 
|328 695E- 
383047E- 
|136401E- 
902045E- 
I164789E- 
958510E- 
248553E- 
|429632E- 
1253881E- 
075259E- 
3 91 670 E- 
J792816E- 
[513 51 8E- 
713914E- 
|678982E- 
554574E- 
(l 87 326E- 
95881BE- 


67833760! 
30625583 
(7. 88074957 
1. 16363508 
71640383 
!3. 44118671)' 
B . 63937095 
|5» 42510 ? 06 
|4. 74721832 
73797897]: 
43802726 
3. 86559791 
3.12958 534) 
2.35792396 
69581710 
[1.18287975 
[8.06506340 
34101524,1 
[3.4275510 8 
[2.13381902 
28467170 
7.50617661 
4.23652766 
2.31319394 
1. 22477581 
6.25973554 
3.104C9732 
486C8698 


Pi 


02 

02 

02 

02 

01 

01 

01 

01 

01 

01 

02 

02 

02 

02 

02 

02 

03 

03 

03 

03 

04 

04 

05 
05 
05 
05 
0 5| 


ANO CONJUGATE EIGENFUNCTIONS NO. 1 2. 370000000C|OE*-00 

0 . 0 . 

2. 6 7 833 7 60(736 94 6E- 0 2 -5.15 21515 0 5 8560 5] 


736946E- 
253603E- 
'739657E- 
544427E- 
766994E- 
93B734E- 
I410 314E- 
785 94 0 E- 
0166756- 
47716CE- 
36336ZE- 
690964E- 
477563E- 
071104E- 
798080E- 
089846E- 
959054E- 
019166E- 
763746E- 
207 93 BE- 
758664E- 
.303 865E- 
018562E- 
395975E- 
756603E- 
386275E- 
592443E- 
360192E- 


■02 
■0 2 | 
C2 

■oil 

01 

01 

01 

Cl 
01 
•01 
01 
01 
01| 
01 
01 
■Olj 
0 2 

02 
02 
0 2 
02 
0 3 
■C3j 
0 3 

03 

04 
04 
04 
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6 

9. 

4. 
-5. 
- 2 . 
■3. 
-3. 
- 2 . 

1 . 

1. 

2. 

1. 

1. 

9. 

5. 
3. 
1. 
a. 
3. 
5. 

-4. 

- 6 . 

-4. 

>2. 

- 1 . 

-3. 

* 6 . 
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571 
037 
98 C 
943 
221 
633 
687 
HE 
937 
527 
U 30 
837 
37 
265 
74 9' 
330 
781 
371 
108 
226: 
511 
079 
5191 
535 
117 
695 
069, 




12342944515 
897 8803276 
0289466326 
11949101684 
6777522924; 
9269507855 
|8 878959776 
1709622744 
16729 GO 27 85 
,8169439314 
[2782466703 
6235879285 
186575132 
7152456196 
4518803221 
96610 58702 
0319658516 
3742512838 
0079311108 
63851 83592 
1C5 42 564 82 
99512135440 
3742505507 
148 6 7 5 14 0 9; 
3216706086 
[822 3649410 
8693741766! 


♦ E-02 
9E-02 
IE-02 
4E-02 
6E-01 
5E-01 
4E-01 
,GE-01 
5E-03 
4E-01 
166-01 
7E-01 
5E-01 
> IE-G2 
. 9E-02 
! 9E-C2 
0E-02 
7E-C3 
2E-03 
:ie-C4 
9E-04 
E-C4 
I9E-04 
7E-04 
3E-04 
1E-C5 
16-06 


- 1 . 0 18)749 12 801 76|9 
•1 


-1.511 


2.22 44 90 3840623 


•3.271 


2426368122 


04143804830 


-6. 52 2)0 25 40402 39] 
-1.07; 


31407720426) 
-9.3185753090550 
-3. 443)5424941306) 

9. 3 1 5-8 13 5 °6 11 67j 
2. 43 95 12030 98 9l| 

2. 635,5565719130 
2 . 136923 3 9 80 8 37| 
1.3 6 50 775 19 7 3 84| 
6.99U0C2939982C 
2.74217518791711 
7.11411209514043 
2 . 79C2 87 6 60 960 90t 
-7.30310853C90402E 
-3.29l!3C633516623E 
—7 .4 99)3 0794 329 80 4E 
-1. 15018 3437043135E 
— 2.38 922654276351E 
-3.05141127892416E 
-2.936B0566403198E 
-2.3 6 2)9 53 8 5 1 5 0 9 2 5E 
-1.6805 99 95933 39 6E 
-1. 08633922450 16pE 


-C2 
-PI 
01 
-01 
01 
-01 
»oo 
-01 
Cl 
-C 2 
-01 
-01 
-01 
-01 
-02 
-02 
-03 
-04 
-04 
-04 
-05 
04 
-04 
C4 
04 
-04 
-04 
-04 
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3.536C545491C44LE+Q1 
3.831560696662296*01 
4.1** £099652125426*01 
4.456394375322366*01 
4.791810012350746*01 
5.134 89331127671E*01 
5.491185625870236*01 
5.856438356419655*01 
6.238226504684016*01 
6. 63C 3559 12758 5 96+01 
7.032932636791976+01 
7.448938726471626*01 
EIGENVALUE ANC CONJUGATE 
0 . 

1.00C90G00300000E-02 
2.00CQPOOOOOC3C3E-02 
3.000000000000006-02 
4.496999996999996-02 
6.814286835458256-02 
1. 532858155548416-01 
3. 7259L8554368456-01 
7. 1UO 296 10 127 15 16-01 
1.168101505660516*00 
1. 74 342S 977641 84E+00 
2.440264688826566*00 
3.2567C7479570446+00 
4.186 0 80 444 92492E*0 0 
5.244290051320216+00 
6.414548773985706*00 
7.708525196332356*00 
9.116669675978876*00 
1.064941291367696+01 
1. 23 C 1760 230 634 16*01 
1.406695320426376*01 
1. 595806733717236*01 
1.796114606779296*01 
2.006102701625296+01 
2.234051204447206*01 
2. 47 CiO 63926 847 6 3 6*01 
2.718889111224 6(4 E + 01 
2. 57 8(6 9049535 41 26 + 0 1 
3.251392275266306+01 
3. 536054546164416*01 
3. 831560696662206*01 
4. 14C|0 9965212 54 26*01 
4.459139437 53 223 66+01 
4.79181001235074E+01 
5.134893311276716+01 
5.49118562687023E+01 
5.8.59M8 35641965E + 01 
6. 238(22650 46 840 LE + 01 
6.63CB5591279359E+01 
7.032932636761976+01 
7.448938 726471626*01 
7.8970 
1.0 


6.8888Q832720551E- 
3. 102716835 66 852E- 
1. 35044074250 793E- 
5. 71725 849849897E- 
2. 34019483343113E- 
9.324432489999406- 
3. 59237586111701E- 
1.342756 44 205201 E- 
4. 88633144455833E- 
1.718822820368686- 
5. 88997291890 889E- 
1. 946606306259936- 
EIGENFUNCTIONS NO. 2 
0 . 

3. 88063033243 247E- 

7. 6974C139635919E- 
1.144749347364736-1 
1.6 94 1905138276 1E- 
2. 50947 3345 64 2 64E-! 
5.13737271069587E- 

9.0 44 04597705 40 5E-! 

8. 6812479 2,3 15401E-I 
3. 4 53 7424 UO 05 2476-1 

-1.19196350I875066E-I 
-2.89263748237742E-I 
-3. 16233332528343 E- 1 
-2.705864560718796-1 
-2. 04741585;567772E-I 
-1.5444634i|6757006-l 
-1. 2155771 3,2 04129E- 1 
-9.56485908!048741E-I 
-7. 027 27 245:954 553E-! 
-4.653540 7 7(2 24 842 E- 1 
- 2. 760 58455I786113E-I 
- 1. 467 3694850175 8E- 1 
-7. 0718272 3(3 00C15E-I 
-3.0881793 42 31163E-I 
- 1.2 17 79445(260 21 4E-< 
-4. 2011992 2|575086E-! 
-1.1010015 54-45 1 77E- ( 
-7. 3225450 Q|519177E-( 
1.7 1)49616 9:3 13 352 6- ( 
1.61936227p79608E-i 

1. Q3182196|228569E-£ 
5. 456*51830 54567E-C 

2. 55315094(911 57 8E-C 
1.0757045 1|4 09 44 5E-C 
4.1374C633|153342E-l 
L.43811405|615230E-£ 
4. 46115937, 752297E-J 

1.1 68 91 3751860 136 £-£ 
2. 33059539|6Q919i6-£ 
3.44089527 994505E-3 

-2.339718759591536-1 


05 

05 

05 

06 
06 
07 
07 

07 

08 
08 
09 
09 

1. 510 


-6.50379689448506E- 
-3.654388710717166- 
-1.93267633277824E- 
-9.7 1 3 8 80 7 3 4 4 9 90 66- 
-4. 633 3465724531 2E- 
-2.11472332925064E- 
-9.202588693350076- 
-3.835509362887366- 
-1.539108837197726- 
-5.91151300 0581416- 
-2.1912 39 498 4388 9E- 
-7.785650742273016- 
000000006+00 
Q. 

-1.5337598601927 8E- 
-3.03C4700759995DE- 
-4. 4874 84 52 3920 9 16-i 
-6.593383878474126- 
-9.640785980230656- 
-1.85101714699446E- 
-2. 55852619159532E- 
-2. 251530914 92 161E-I 
-3.986564998540336-1 
-5. 96410 6 6 585202176-1 
-5.566C 34 897280 8|3E-I 
-4.013001531537396-1 
-2. 0205 66 782397 812E-I 
-1.2243 51 14 209345E— I 
1.2059C4S2C74696E-I 
1.8583 89 8 2 5 27 8 4 3£- 1 
1. 95 C 294 38 96410 9E-I 
1.70558467181611E— I 
1. 336)111 76 68898 4E -I 
9.780850873469146-1 
6.83C9381445493j6E-l 
4. 605(21438393 322E-I 
2. 990683329433856-1 
1.8700 31 4015937 66—) 
1.126431250568046-1 
6.509129883554906-1 
3.623846526483326— ( 
1.93639245662539 £-£ 
9. 9580C8457758226-1 
4. 94464848243 82 66-t 
2. 35589938640 7996-t 
1.C89C 95742043726-C 
4 .834746 321 7550 9E-( 
2. 077 878 70 576 72 6E-( 
8.594955 97945543E— ( 
3.4332 37 634 66 7896- £ 
1.32940 8 57 945 3 94 E-t 
4.956Q7023768631E-C 
1.7921 21 5720013tE-£ 
6.2391 81 3478487lE-£ 



RESULTS OF SCALING 

EXAMPLE OF PROGRAM RLEVX USING 4 EIGENSOLUTIONS FROH NUMERICAL EXAMPLE OF REPORT 
VARIABLE NO. 1 

GAUSSIAN VARIANCE INCLUOING CORRECT ION FOR NEGLECTED EIGENVALUES = 5.58625EKJ0 
SCALED EIGENVALUES 
2.24153E*00 
7.49533E-01 

VARIABLE NO. 2 

GAUSSIAN VARIANCE INCLUDING . CORRECTION FOR NEGLECTED EIGENVALUES = 3.9485QEMJ0 
SCALED EIGENVALUES 
1.67584E*00 
1 • 06773E *00 

SIGMA RATIO OF TURBULENCE MODEL =* 1.000 

VARIANCE CHECK, VARIABLE NO. 1 

CORRECT TOTAL VARIANCE = 1.11725E*01 

SUM OF SCALED EIGENVALUES SQUARE0 = 5.58625E*00 

GAUSSIAN VARIANCE = 5.58625£*80 

TOTAL VARIANCE = 1.11725E*0i 

VARIANCE CHECK, VARIABLE NO. 2 

CORRECT TOTAL VARIANCE = 7.897COE*00 

SUM OF SCALED EIGENVALUES SOUAPEO = 3.94B50£*00 

GAUSSIAN VARIANCE = 3.94850E*00 

TOTAL VARIANCE = 7.89700E*80 
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COVARIANCE MATRIX FOR P VARIABLES 

EXAMPLE OF PROGRAM RLEVX USING 4 EIGENSOLUTIONS FRCH NUMERICAL EXAMPLE OF REPORT 

1.000000 0.000000 . 943717 -.261535 

0.000000 1.000800 .058157 -.090917 

.943717 .058157 1.000000 0.008000 

-.261535 -.090917 0.000000 1.000000 

COVARIANCE MATRIX FOR Q VARIABLES 

EXAMPLE OF PROGRAM RLEVX USING 4 EIGENSOLUTIONS FRCM NUMERICAL EXAMPLE OF REPORT 

1.000000 8.000000 .171608 .940547 

3.000000 1.000000 .032251 -.063324 

.171608 .032251 1.000000 0.000000 

.940547 -.063324 0.000000 1.000000 

FUNCTIONAL DEPENDENCE MATRIX 

EXAMPLE OF OROGRAM RLEVX USING 4 EIGENSOLUTIONS FRCM NUMERICAL EXAMPLE OF REPORT 
VARIABLE NO. 1 

2.241528 0.000000 

O.CQOOOO .749533 

FUNCTIONAL DEPENDENCE MATRIX 

EXAMPLE OF PROGRAM RLEVX USING 4 EIGENSOLUTIONS FROM NUMERICAL EXAMPLE OF REPORT 
VARIABLE NO. 2 

1.675843 Q.OOQOOO 

0.000000 1.067731 

CORRELATION COEFFICIENT OF RESPONSE AND ITS FIRST DERIVATIVE = 2.831E-03 
THIS COEFFICIENT SHOULD PE MUCH LESS THAN 1.0 

DETERMINANTS OF COVARIANCE HATRICIES 
OET A = 3. 43 32 0 E-3 2 
OET 8 = 8. 25690E-C 2 

INCREMENTS* 

0X(1) = 1.OC27507EMOO 0X<21 = 8 .4304504E-01 

0 F ( 11 = 1. 55 8 20 14E-02 0F<21 = 1. 8533938E-02 
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FIRST ROM, FIRST COLUMN, AND DIAGONAL OF JOINT PROBABILITY DENSITY FUNCTION 


2.0 996-02 0. 

7.7776-03-1.4126-15 

7.448F-04-3.5676-16 

6.9596- 05-7. 763E-17 
8.202E-06-3. 1236-17 
1.067E-06-1.778E-17 

1.4646- 07-6. 335E-1S 
2.120E-38 4.3376-19 
6.028E-09 0. 
2.12CE-03-4.337E-19 

1. 4646- 07 6,335 E- 18 
1.067E-06 1.778E-17 
8.202E-06 3.123E-17 

6.9596- 35 7.7636-17 
7.448E-04 3.567E-16 
7.777E-03 1.412E-15 

2.098E-02 U. 
8.102E-03-1.114E-15 
7.781E-34-2.525E-16 
5. 546E-0 5-2. 7766-17 
4.590E-06 0. 
4.3516-07 0. 
4.4976-08-2.6706-13 

4. 9606- 09-3. 469E-18 
1.102E-09 0. 

4.9606- 09 3.469E-18 
4.497E-08 2.670E-18 
4.351E-07 0. 
4.5906-G6 0. 

5. 5466-05 2.776E-17 
7.781E-04 2.525E-16 
8, 102E-Q 3 1.114E-15 

2, 0986-02 3, 

3, 2 9 IE “0 3-2, 514E-15 
1.151E-34-6.330F-16 
5.866E-06— 1.209 E- 16 
3.488E-07-3.944E-17 
2.231E-05-2,148E-17 
1.493E-09-6.662E-18 

1. C79E-10 2.958 E- 18 

2. G02E-11 0. 
1.C79E-10-2.958E-18 
1.493E-39 6.662E-18 
2.231E-0S 2.148E-17 
3.488E-07 3.944E-17 
5, 866E-C6 1.239E-16 
1.151E-04 6.330 E- 16 
3.291E-03 2. 514E-15 


1.966E-02 1.366E-15 
4.E54E-03-9.462E-15 
3 • 597E-04 4 . 152E-15 
4.C19E-05-7.471E-15 
4.894E-06-2.293E-15 
6.469E-07 5.336E-15 
3.5696-08 1.778E-15 
1.351E-08 2.901E-15 
6.740E-05-5.358E-16 
3.4026-08 3.395E-15 
2.3976-07-4. 678E-16 
1.7666-06 5,0 27E-15 
1.383E-05 1.G47E-15 
1. 2226-04-3. 3Q5E-16 
1.4016-03-5.1566-15 
1.186E-02-2. 9356-15 

1. S72E-0 2 1.411E-15 
4.5276-02-5.2036-15 
3.5986-04 4.046E-15 
2, 52 9E -05-7 • 5 55E- 15 
2.52CE-06-2.209E-15 
2.451E-0 7 5.6045-15 
2.574E-08 1 . 811E-15 
2. 53e£-0 5 2.016E-15 
1.27C £-05-8.893 E- 16 
9.529E-05 3.438E-15 
7. ea3E-08-4.363E-l& 
7. 7656-97 5.233E-15 
8. 432E-06 1.066E-15 
1.O62E-04-6.551E-16 
1.495E-03-S.1696-15 
1.216E-02-3.507E-15 

1.847E-02 2.419E-15 
1.406E-03-E.611E-15 
5.332E— 05-3.841E— 16 
2, 869E-06-1.199E-16 
1.745E-07-2.694E-17 
1. 130E-0 5-1.316E-17 
7.649E-1C-4.123E-18 
5.686E-11-5.Q5QE-19 
2.325E-11-6.116E-18 
2.C44E-1C-Z.075E-18 
2,9246-05 5.779E-13 
4.414E-08 Z.194E-17 
7.C04E-07 4.1S2E-17 
1, 21CE-0 5 8.934E-17 
2.55EE-04 3.05CE-16 
7,0256-0 3-2. 918E-15 


1.622E-02 6.143E-15 
2. 604 E- 03-1. 00 IE -15 
2. 187E-04 9.766E-16 
2. 34 7 £-6 5-6. 7 98E-15 
2 . 934E-Q 6—1.7 12E- 14 
3.933E-0 7 2.638E-15 
5.510 E-0 8 1.304E-15 
9.047E-G9-2.811E-15 
9.Q47E-C9 2 . 811E-1 5 
5. 5 10 E- 08-1. 30 4E -15 
3. 9 33 E-0 7-2. 63 8E-1 5 
2.934E-C6 1.712E— 14 
2 . 347 E-0 5 6.798E-15 
2. 1 87 E-0 4- 9. 76 6E -16 
2. 604E-03 1.001E-15 
1.622E-02-6.143E-15 

1 . 641E-0 2 6.560E-15 
2.785E-03-8.792E-16 
2.053E-04 1.093E-15 
1.563E-U5-6.848E-15 
1. 394E-U6-1.73CE-14 
1.387E-07 2.835E-15 

1. <‘78£ — C 8 1.36 5E-15 
1.824E-09-2. 862E-15 
1.824E-09 2 . 862E-15 
1.478E-08-1.365E-15 
1.387E-07-2.835E-15 
1.394E-06 1.73CE-14 
1.563E-05 6. 848E-15 

2. D53E-0 4-1.0 93E-1 5 
2.785E-03 B.792E— 16 
1.641E-02-6.560E-15 

1.270 E-0 2 9.314E-15 
5.909E— 04-1.444E-15 
2.521E-05-1.870E— 16 
1.413E-06-8.O55E-17 
8.762E— G8-3.187E-17 
5.742E— 09-1.261E-17 
3.938E-10-2.271E-18 
3.445E-11 5.997E-18 
3.445E-11-5. 997E- 1 8 
3.938E-1C 2.271E-18 
5.742E-09 1 . 261E-17 
8.762E-08 3.187E-17 
1.413E-06 8.085E-17 
2. 521E-05 1. 870E-16 
5. 9396-04 1.444E-15 
1.270E-02-9.314E-15 


1. 186E-0 2 2. 935E-15 
1.4G1E-03 5. 158E-15 
1.222E-04 3.305E-16 
1.3 83E-0 5-1, C47E-15 
1.766E-06-9.027E-15 
2.397E-07 4. 678E-16 
3.402E-08-3.395E-15 
6.740 £-09 9.358E-16 
1. 351 E- OS -2. 90 IE -15 
8.969E-08-1.778E-15 
6.469E-07-5.386E-15 
4.894E-06 2.298E-15 
4.019 E-0 5 7. 47 IE -15 
3.997E-04-4 . 152E-1 5 
4.654E-03 9.462E-15 
1.966E-02-1.366E-15 

1.216E-02 3.507E-15 
1 . 495E-0 3 5 . 169E-1 5 
1.062E-04 6. 55 IE -16 
8.432E-06-1. 066E-15 
7.765E-07-9.233E-15 
7 • 883 E-0 8 4.36 3E-16 
8.529E-09-3.438E-15 
1 . 270 E-0 9 3.893E-16 
2.938E-09-3.Q16E-15 
2.574E-Q8-1.811E-15 
2.451E-07-5.604E-15 
2 . 520 E-0 6 2. 209E-15 
2.929E-05 7.559E-15 
3. 993E-04-4.C46E-15 
4.927E-03 9. 203E-15 
1.972E-0H-1.411E— 15 

7.U25E-03 2. 918E-15 
2.558E-04— 3.05CE-16 
1.219E-0 5— 8. 934E-17 
7.004E-07-4.182E-17 
4.414E-08-2.184E-17 
2.9 24E-0 9-9. 779E-18 
2.0 446-10 2. 075E-18 
2.325E-11 6. 116E-18 
5 . 886E-11 5. 050E- 19 
7.649E-10 4.123E-18 
1 . 130E-0 8 1.316E-17 
1.745E-07 2. 694E-17 
2.869E-06 1.199E-16 
5 . 332E-C 5 3. 841E-16 
1.406E-03 5.611E-15 
1.847E-02-2.419E-15 
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FIRST ROW. FIRST COLUMN, ANO DIAGONAL OF JOINT CHARICTERISTIC FUNCTION 


1.000E+00 0. 
4.693E-01 9. 
7.693E-92 0. 
5.639E-03 9. 
1.874E-04 0. 
2.794E-06 0. 
1.849E<-08 0. 
5.383E-11 3. 
1.37CE-13 0. 
5.383E-11 0. 
1.849E-08 9. 
2.794E-06 0. 
1.874E-04 0. 
5.639E-03 0. 
7.693E-02 0. 
4.698E-01 Q. 

l.G00E*OO a. 
4.599E-0 1 3. 
6.892E-02 3. 
4.628E-03 0. 
1.446E-04 0. 
2.068E-06 0. 
1.332E-08 0. 
3.806E-11 0. 
9.561E-14 0. 
3 . 896E-11 3. 
1.332E-08 0. 
2.068E-06 3. 
1.446E-04 0. 
4.628E—03 0. 
6.892E-02 3. 
4.599E-01 9. 

1.00CE*03 3. 
2.452E-01 0. 
9.0B6E-03 9. 
6.646E-05 0. 
9.441E-08 9. 
2.571E-11 3. 
1.329E-15 0. 
1.293E-20 0. 
8.Q65E-26 3. 
1.293F-20 3. 
1.32SE-15 0. 
2.571E-11 3. 
9.441E-09 0. 
6.646E-05 9. 
9.086E-03 3. 
2.452E-01 3. 


9.484E-01 

0. 

3.238E-01 

0. 

4.31QE-02 

0. 

2.S94E-83 

0. 

7.064E-05 

0. 

8.607E-07 

0. 

4.640E-09 

a. 

1.C99E-11 

0. 

4.035E-13 

0. 

2.504E-1C 

0. 

6.999E-08 

a. 

8.626E-06 

0. 

4.73CE-04 

0. 

1.167E-02 

G. 

1.3Q7E-01 

0. 

6.410 E- 01 

0. 

9.483E-01 

0. 

3.112E-01 

0. 

3.769E-02 

0. 

2.091E-03 

0. 

5.383E-05 

0. 

6.319E-07 

0. 

3.324E-09 

a. 

7.742E-12 

0. 

2 . 823E-13 

G. 

1.777E-18 

0. 

5.071E-08 

0. 

6.441E-06 

0. 

3.697E-04 

0. 

9.765E-03 

0. 

1.20PE-01 

0. 

6.354E-01 

0. 

9.Q02E-01 

c. 

1.253E-01 

0. 

3.095E-03 

0. 

1.EP5E-05 

0. 

1.417E-08 

G. 

2.549E-12 

0. 

8 • 6B3E-17 

0. 

5.S58E-22 

G. 

7.82CE-25 

0. 

2.7P9E-19 

0. 

1. 833E-14 

c. 

2.338E-10 

0. 

5.675E-07 

0. 

2.E48E-04 

0. 

2.410E-02 

a. 

4.308E-0 1 

0. 


8.140E-0 1 0. 
2.111E-0 1 0. 
2.298E-02 3. 
1. 136E-G3 G. 
2.531E-05 0. 
2.517E-D7 0. 
1.106E-G 9 0. 
2.132E-12 0. 
2. 132E-12 0. 
1. 106E-G9 0. 
2.517E-C7 0. 
2.531E-35 0. 
1.136E-03 0. 
2. 29SE-0 2 0. 
2. 1 11E-Q 1 0. 
8.143E-01 0. 

8.122E-01 0. 
1.985E-01 0. 
1.965E-G2 0. 
9.007E-04 0. 
1.909E-C5 0. 
1.836E-07 0. 
7. 8S6E-10 0. 
1.497E-12 0. 
1.497E-12 C. 
7 • 886E-10 0. 
1.836E-07 0. 
1.939E-05 0. 
9.007E-04 0. 
1.965E-32 0. 
1.9 85E-0 1 0. 
8.122E-01 0* 

6.709E-Q1 0. 
5.780E-02 0. 
9.527E-04 0. 
3.077E-J6 0. 
1.917E-U9 0. 
2 . 277E-13 0. 
5.1 10E-18 C. 
2.153E-23 0. 
2.153E-23 0. 
5.113E-18 0. 
2.277E-13 0. 
1.917E-09 0. 
3.C77E-36 0. 
9.527E-04 0. 
5.780E-02 0. 
6.709E-01 0. 


6.410E-01 0. 
1.307E-01 0. 
1 .167E-Q 2 0. 
4. 730E-04 0. 
B.626E-06 0. 
6.999E-08 0. 
2. 504E-10 0. 
4. G35E-13 0. 
1.099E-11 0. 
4. 640E“0 9 0. 
8.603E-07 0. 
7.064E-05 3. 
2.594E-33 0. 
4.310E-02 0. 
3.238E-01 0. 
9.484E-01 6. 

6. 354E-0 1 0. 
1.2G0E-O1 0. 
9.765E-03 0. 
3. 697E-34 0. 
6.441E-06 0. 
5.071E-08 0. 
1.777E-10 0. 
2 • 823E-13 0. 
7.742E-12 0. 
3.324E-09 0. 
6.319E-07 0. 
5.383E-05 0. 
2.D91E-03 0. 
3.769E-02 0. 
3.112E-01 0. 
9.483E-01 0. 

4.308E-01 0* 
2.413E-02 0. 
2.643E-04 0. 
5.675E-P7 0. 
2.338E-10 0. 
1. 833E-1 4 0. 
2.7G9E-19 0. 
7.82DE-25 0. 
5.558E-22 0. 
8.683E-17 0. 
2.549E-12 0. 
1.417E-08 0. 
1.505E-05 0. 
3.095E-33 0. 
1. 253E-3 1 0. 
9.002E-01 0. 
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COMPUTEO VALUES OF X AND NIX» 


0 . 

1.0 0 275 87E»-0 C 
2.0055174EMJ0 
3.C 382761E+0 0 
4.011C34SE* , 0Q 
5.0 137935E*QG 
6. 0 1 65522E+0Q 
7«0193109E*-QQ 

9.0 220 696E + n 0 
9.G248283E4-00 
1. C 027 58 7E *-0 1 
1. 10 30 3 46E *-9 1 
1.2333104E«-01 
1 • 3035863E+0 1 
1.4038622E+01 
1.5041380£»0i 

1 • 6Ci*<41 39E* 01 
1 • 70 46 8 98 E* 0 1 
1.8049657E«-P1 
1. 9052415£«-G1 
2.00551 74E*ul 

2 • 1 057933E *■ 0 1 
2. 2360 691E+0 1 
2. 30 63450 E *-0 1 
2.4266209E4-31 
2.506 8967E+Q 1 
2.6071726E«-01 
2.70744 85EH31 
2. 80 77243E*-01 
2. 93 800 02E + 0 1 
3. C 0 82761E+G 1 
3.108552QE«-C1 
3.2088278£*-Gl 
3.3091037E*-ul 
3.4093796E+01 


1. 3474656E-01 
1. 27466Q0E- Cl 

1. 0 9 0 30 34E-01 
8.274 6242E-02 
5.81 22990E- 02 
3. 8195555E-C2 
2.4032236E-02 
1.4803461E-02 
9.C793143E-03 
5 • 55 59 660E-C3 
3. 4756023E-03 
2.1737180E-03 
1. 3666137E-03 

8. 62 35751E-04 
5. 45 5 72 55E-94 
3.45802385-04 
2. 1948558E-04 
1. 3945934E-04 
8. 86 85815E-05 
5. 6435779E-05 
3. 5933260F-05 
2.28 8 9 875E-05 
1.4587248E-05 
9.3000929E-06 
5. 9323970E-06 
3. 7874490E-06 
2. 42 22495E-06 
1. 55 52427E- C6 
1. 0378336E-06 
6. 6737529E-07 

4. 63 867C7E- 07 
3. 55497B7E-C7 
3.2001740E-07 
3. 5016234E-07 
4. 5215746E-07 
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LEVEL CROSSINGS 

EXAMPLE OF PROGRAM RLE VX USING 4 EIGENSOLUTIONS FROM NUMERICAL EXAMPLE OF REPORT 


DIMENSIONAL 

NON- DIMENSIONAL 

CROSSINGS PER 

CROSSINGS PER 

LEVEL 

LEVEL 

UNIT TIME 

ZERO CROSSING 

X 

X/SIGMA X 



0. 

0. 

1.347E-01 

1.000E+00 

6.685E-31 

2.000E-01 

1.315E-D1 

9.755E-01 

1.337E*00 

4. G00E-01 

1.221E-01 

9.05 9E-01 

2. 0C6E<-GC 

6.00CE-01 

1.080E-0I 

8.017E-01 

2.674E+00 

8.000E-01 

9.140E-02 

6.783E-01 

3. 343£*00 

l.oocE+oa 

7.421E-02 

5.507E-01 

4. 011E+I0 

l.zooEfao 

5. 812E-02 

4.314E-01 

4.680E+00 

1.400Ef30 

4.420E-02 

3.280E-01 

5.348E+03 

i.eacE»go 

3.2 8 5E-32 

2.43 8E-81 

6.017EV00 

1. 80CEVOO 

2.403E-Q2 

1.784E-01 

6. 6S5E+00 

2. COOE+OO 

1.742E-02 

1.292E-01 

7. 354E *-90 

2.200E*-00 

1.2S7E-C2 

9.332E-02 

8. 022E+C0 

2.400E+BO 

9.079E-03 

6.738E-02 

8.691E*00 

2 • 60 GE* 0 0 

6.57CE-03 

4.876E-02 

9.359E+00 

2. 8CQE*-00 

4.77QE-03 

3.540E-02 

i.093E*ai 

3 . CQOEtOO 

3.476E-03 

2.579E-02 

1. C70E+01 

3. 200E+00 

2.540E-03 

1.885E-02 

1* 136F *01 

3 .40CE*OC 

1.861E-03 

1.381E-02 

1.293E«-C1 

3.eoaE+ao 

1.367E-03 

1.014E-02 

1.270E+01 

3 • 80 CE«-00 

1.005E-03 

7 .460E-03 

1 . 337E *01 

4.C0CE+00 

7.402E-04 

5.493E-03 

1.434E+01 

4. 2G0E*00 

5.456E-04 

4.049E-03 

1 • 471E*5 1 

4.4oce»ao 

*• .0 25E-Q4 

2.987E-03 

1. 53 8E + Q 1 

4.600EV-00 

2. 972E-04 

2.205E-03 

1.634E+31 

4.800E«-8Q 

2.195E-04 

1.629E-03 

1.&71E*01 

5. COOEt-OO 

1.622E-04 

1.204E-D3 

1.738E*ai 

5. 20GE*00 

1 .1996-04 

8.900E-04 

1. 805E*-01 

5.40CE+00 

8.869E-Q5 

6.582E-04 

1. 872E+01 

5.600E»00 

6.561E-05 

4.869E-04 

1.939E+01 

5.80CE»00 

4.855E-Q5 

3.603E-04 

2.0Q6E*ai 

6.0aOEtOO 

3.593E-Q5 

2.667E-04 

2. 0 7 2E *-91 

6.20CE+Q0 

2.660E-05 

1.974E-04 

2.13 9E *01 

6.40CE+00 

1.970E-05 

1.462E-04 

2.2Q6E+Q1 

6. 600E+00 

1.459E-05 

1.C83E-04 

2.273E*01 

6. 80 CEfOO 

1.081E-05 

8.019E-05 

2.34QE*01 

7.00CE+00 

8.0B5E-06 

5.941E-05 

2 .40 7E*01 

7.20CEf00 

5.932E-06 

4.403E-05 

2.473E*01 

7. 40CE+00 

4.398E-06 

3.264E-05 

2. 54 0E *91 

7 .60 0E*0 0 

3.262E-06 

2.421E-05 

2.60 7E *01 

7. 800E*00 

2.422E-06 

1.798E-05 

2.674EH11 

e.cocEtoo 

1.802E-06 

1.337E-05 
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DECK LISTINGS 


no noon a no 
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SUBROUTINE CF1IANS,FI 
C 

C A SUBROUTINE TO EVALUATE THE CHARACTERISTIC FUNCTION OF THE 
C NON- GAUSSIAN RESFONSE FOR THE CASE OF CORRELATED GAUSSIAN COMPONENTS 
C SUBROUTINE INTEGRATES FUNCTION OF THE FORM 
C <XIT)*A(-l)*X/2 * Y(T)*3l-i)*Y/2 * I*PI2*F*XCT) *C*Y)*DX*0Y 
C FROH -INF TO *INF, WHERE X,Y ARE N VECTORS, (TJ OENOTES TRANSPOSE, 

C l-l) OENOTES INVERSE, A, 8 ARE SYMMETRIC COVARIANCE HATRICIES, 

C ANO I OENOTES SCRTC-i.). 

C 

C ANS = AN'S HER 

C A = INPUT CORRELATION MATRIX FOR FIRST SET OF GAUSSIAN PROCESSES 
C A1,B1,C1 = SCRATCH- HATRICIES USED IN RECURSIVE COMPUTATION 
C A2 = ,5*IINVERSE OF CORRELATION MATRIX A) 

C B = INPUT CORRELATION MATRIX FOR SECOND SET OF GAUSSIAN PROCESSES 
C 82 = .5*1 INVERSE OF CORRELATION MATRIX 81 
C C = FUNCTIONAL MATRIX 
C OETA = DETERMINANT OF A 
C DETB = DETERMINANT OF B 

C F = INDEPENDENT VARIABLE OF CHARACTERISTIC FUNCTION 
C N = NUMBER OF MODIFIED 8ESSEL PROCESSES 

COMMON /COR/ A (8,8) ,3(8,8) ,C(B, 8) , N,ISIZE, OETA, OET3, 

1 A1 (8,8) ,B1 (8,8),C1(8,8) ,A2 (8,8) ,B2(8,8) 

DATA PI2/6. 28318530717958/ 


COPY HATRICIES 
DO 5 1=1, N 
00 5 J=I,N 
A1 (I,J)=A2(I,J) 

5 Bltl,J)=32(I,J) 

F2=F*PI2 

DO 6 1=1 , V 
00 6 J=i,N 

6 Ci(I,J)=C(I,J)*F2 

COMPUTE ANSHER FOR FIRST PAIR OF INTEGRATIONS 
All=Al(i,l) $ 311=B1 ( 1,1) t C11=C1(1,1) 

DIV=4.*A11*S11*-C11**2 S ANS=1./(DETA*DETB*DIV» 

IF (N-i) 160,105,10 

COMPUTE ANSHER FOR ADDITIONAL INTEGRATIONS 
10 00 100 NI=2,N 
K=NI-1 

DO 60 I=NI,N 

A1KI=A1 IK, I) S B1KI=B1 (K »I) S C1KI=CUK,I> * ClIK=CltI,K) 

DO 60 J=NI» N 

A1KJ=A1 (K, J) S 81KJ=8i(K,JJ 1 C1KJ=C1(K,J) t ClJK=CltJ,K) 

IF CJ.LT.I) GO TO 50 

AKI, J> = Al(I,J)-C4.*81i*AlKI*AlKJMCil*tAlKI*ClJK«-CiIK*AlKJI- 
1A11*C1IK*C1JK))/DIV 

BltI,J) = 31 (I,JI-(4.*Ali*81KI*BlKJMCll*tBiKI*CiKJ«-ClKI*BlKJ)- 
3.311*C1KI*C1KJ> )/DIV 

50' ClU,J)=ClU,J)-(4.MAli*ClIK*81KJ»-Bil«'AiKI*ClKJ-Cll*AlKI*81KJ) + 
1C11*C1IK*C1KJI/0IV 
60 CONTINUE 

A11=A1 INI ,NI) t 811=B1CNI,NI) S C11=C1 INI, NI) 
DIV=4.*A11*B1H-CI1**2 
100 ANS=ANS/OIV 

105 ANS=SORT I ANS) 

106 RETURN 


CF100001 
CF100002 
CF100003 
CF100004 
CF10Q00 5 
CF10000 6 
CF10000 7 
CF100008 
CF100009 
CF100010 
CF100011 
CF100012 
CF100013 
CF1 00014 
CF100015 
CF10Q016 
CF100017 
CF1Q001 8 
CF100019 
CF100C20 
CF100021 
CF100022 
CF10QD23 
CF100024 
CFtOQOZ 5 
CF100026 
CF100027 
CF100028 
CF100029 
CF100030 
CF100031 
CF1 00 032 
CF100033 
CF100034 
CF10Q035 
CF100036 
CF100037 
CF100038 
CF100039 
CF100040 
CF100041 
CF100042 
CF10Q043 
CF10Q044 
CF10Q045 
CF100046 
CF100047 
CF100048 
CF100049 
CF100050 
CF100051 
CF100052 
CF100053 
CF10Q054 
CF10C055 
CF10C056 
CF1 00057 
CF10005 8 
CF1O0059 
CF100060 
CF100061 
CF100062 
CF1Q0063 
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C COMPUTE INVERSE AND DETERMINANT OF CORRELATION HATRICIES 
ENTRY INVfiS 
IF (N-l) 160,110,110 
110 DO 130 1=1, N 
00 130 J=1,N 
A2(I,J)=A (I,J> 

130 B2CI»J>=B(I,J) 

CALL INVR ( A2 , N,DET A, ISIZE, ISIZE) 

CALL INVR (82, N,0ETB, ISIZE, ISIZE) 

00 140 1=1, rt 
00 140 J=1,H 
A2(I,J)=A2(I»J)/2, 

140 B2CI, J)=B2(I,J)/2, 

IF ((OETA.GT.O.).ANO.(0£TB.GT.O.>> RETURN 
WRITE (6,1501 OET A,0ET8 

150 FORMAT (1H ,5X, ’DETERMINANT .LE. ZERO, OET A =*,E11.3,*, DET8 =*, 
1E11.3) 

GO TO 180 

160 WRITE (6,170) N 

170 FORMAT (1H ,5X,*HATRIX DIMENSION ,LE. ZERO, N =*,I3> 

180 STOP t END 


CF100064 
CF100C65 
CF1Q0066 
CF100067 
CF100Q68 
CF100069 
CF100070 
CF100071 
CF100072 
CF1GU073 
CF100074 
CF100 075 
CF100076 
CF100Q77 
CF100Q7 8 
CF100079 
CF1CQ080 
CFioooai 

CF1Q0082 

CF10Q083 

CF10G034 


SUBROUTINE CF2(ANS,F1,F2» 

A SUBROUTINE TO EVALUATE THE 2-0 CHARACTERISTIC FUNCTION OF THE 
NON-GAUSSIAH RESPONSE FOR THE CASE OF CORRELATED GAUSSIAN COMPONENTS 
SUBROUTINE INTEGRATES FUNCTION OF THE FORM 
(X(T)’A(-i)*X *■ Y(T)*3(-i)*V + I*PI2* t X (T ) *C*Y*F1 *■ X (T) *D*Y»F2 ) *DX*DYCF2000 0 6 


CF200001 
CF200002 
CF2G0Q0 3 
CF200004 
CF20000 5 


FROM -INF TC + INF, WHERE X,Y ARE N VECTORS, (T» DENOTES TRANSPOSE, 
(-1) DENOTES INVERSE/2, A,B, ARE COVARIANCE HATRICIES, I IS SQRT(-1.) 

COMMON /COR/ A(8,8),B(8,R),C(8,8),D(8,8) ,N, ISIZE, DETA,DETB, 

1A1 (8, 8), 31 (8, 8), Cl (8, 8) , A2 (8,8) ,82 («, 8) 

OATA FI2/6, 28318530717958/ 

A = INPUT CORRELATION MATRIX FOR FIRST SET OF GAUSSIAN PROCESSES 
ANS = ANSWER 

A2 = .5* (INVERSE OF CORRELATION MATRIX Al 

A1 ,91, Cl = SCRATCH ARRAYS USEO FOR RECURSIVE COMPUTATION 

B = INPUT CCRRELATICN MATRIX FOR SECOND SET OF GAUSSIAN PROCESSES 

B2 = « 5* (INVERSE OF CORRELATION MATRIX B» 

C = FUNCTIONAL MATRIX FOR FI 
D = FUNCTIONAL MATRIX FOR F2 
OETA = DETERMINANT OF A 
OET? = DETERMINANT OF 8 

F1,F2 = INOEPENCENT VARIABLES OF CHARACTERISTIC FUNCTION 
N = NUMBER CF MCOIFIEQ BESSEL PROCESSES 


IF (N) 160,107,4 
COPY HATRICIES 

4 00 5 1=1, N 
00 5 J=I»N 

Al( I, J)= A2 (I , J) 

5 81(I,J)=B2(I,JI 
DO 6 1=1, N 

DO 6 J=1,W 

6 C1(I,J)=(C(I,J)*F1’0(I, J)*F2)*PI2 
COMPUTE ANSWER FOR FIRST PAIR OF INTEGRATIONS 


CF200007 
CF200QQ8 
CF2 00G0 9 
CF200010 
CF200011 
CF200012 
CF200013 
CF200014 
CF200015 
CF200016 
CF200G17 
CF200018 
CF200019 
CF200020 
CF200021 
CF2JG022 
CF200023 
CF200024 
CF2Q0025 
CF200C26 
CF200027 
CF200028 
CF200029 
CF200030 
CF200831 
CF20Q 032 
CF200033 
CF200034 
CF20G035 
CF200036 
CF200037 
CF200 03 8 
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A11=A1(1,1) $ 811=31 (1(1) t Cli=Clll,l> 

0IV=4.*All*eil»-Cll**2 t 0IV1=0ETA*DETB*DIV 
IF (N-1) 160,105,10 

COMPUTE ANSWER FOR ADDITIONAL INTEGRATIONS 
10 00 100 NI=2,N 
K=NI-1 

00 60 I=NI,N 

A1KI=A1(K,I> t C1IK=C1 (I ,K) S 31KI=eitK,I) t C1KI=C1(K,I> 
DO 60 J=NI,N 

C1KJ=C1 1 K, J) S B1KJ=B1 IK, J) 

IF (J.LT.I) GO TO 55 
A1KJ=A1(K,J) t ClJK=Ci ( J ,K) 

Al(I,J) = Ai<I,J»-(4.*9il*AiKI*AlKJMCii*(AiKI*ClJK*CiIK*AlKJl 
1-A11*C11K*C1JK))/0IV 

81(I,J)=Bl(I,J)-(4.*Ali*BiKI*BlKJMCliMBlKI*ClKJ+ClKI*BlKJ> 
1-B11*C1KI*C1KJ> J/OIV 

55 ClCI,J)-Cl<I,J)-t4.*All*ClIK*eiKJ«-4.*Bll*AlKI*ClKJ-4.*Cll*AlKI* 
1B1KJ+C11*C1IK*C1KJ)/0IV 
60 CONTINUE 

All=Ai(NI»NI) $ Bll=eilNI,NU S Cll=Cl f NI,NI> 
0IV=4.*All*Bil*Cii**2 
100 OIV1=OIV1*OIV 

105 ANS=1./SQRT(DIV1> 

106 RETURN 

107 ANS=1«0 
GO TO 106 


COMPUTE INVERSE ANO DETERMINANT OF CORRELATION MATRICIES 
ENTRY INVRS 
IF (N-ll 160,110,110 
110 OO 130 1=1, N 
DO 130 J=1,N 
A2(I, J)=A(I,J> 

130 32 ( I, J) =3 (I, J! 

CALL IN VR (A2,N»OET A,ISIZE, ISIZE) 

CALL INVR(B2,N,OET8,ISIZE,ISIZ£l 
OO 140 1=1, K 
OO 140 J=1,N 
A2(I,J)=A2(I,Jl/2. 

140 B2(I,J)=32(I,Jl/2« 

IF (IOETA.GT.O.J.ANO.IOETB.GT.Q.)> GO TO 106 
HRITE (6,1501 OET A.OETB 

15 C FORMAT ( 1H ,5X , "DETERMINANT .LE. ZERO, DETA =*,E11.3,*, OETB =*, 
1E11.3) 

GO TO 180 

160 HRITE 16,1701 N 

170 FORMAT (1H ,5X,*HATRIX DIMENSION .LE. ZERO, N =*,I3) 

180 STOP * ENO 


CF200039 
CF200040 
CF20C04 1 
CF200042 
CF200043 
CF2Q0044 
CF200045 
CF200046 
CF20QC47 
CF200048 
CF2Q0049 
CF200050 
CF200051 
CF2C0052 
CF200053 
CF200054 
CF200055 
CF200056 
CF200057 
CF200058 
CF200059 
CF200060 
CF200061 
CF200062 
CF20Q063 
CF200064 
CF200065 
CF200066 
CF2C0067 
CF200068 
CF200069 
CF200070 
CF200071 
CF200072 
CF200073 
CF200074 
CF200075 
CF200076 
CF200077 
CF20007 8 
CF200079 
CF200080 
CF200081 
CF200082 
CF200083 
CF2000&4 
CF200085 
CF200C86 
CF200087 
CF200088 
CF200D89 



195 


SUBROUTINE COEF(I,A,C> 

C A SUBROUTINE TO FILL C ARRAY WITH THE COEFFICIENTS OF THE 
C POLYNOMIAL REPRESENTING A(X) BETWEEN XCII AND X(H-i). NPOLY IS THE 
C THE ORDER OF THE POLYNOMIAL 
C 

OIMENSICN A (1) ,C (1) 

COHMON /ARRAYS/ E ( 8) , EFP (45,8) ,£FQ(45, 8) ,X (45) , FF1 145) ,FF2 ( 451 , 
1NP, NPOLY 
DATA NPOLY/3/ 

IF II.GT.1) GO TO 10 
N=1 * GC TO 30 

10 IF (I.LE.NP-21 GO TO 20 
N=NP-3 t GO TO 30 
20 N=I-1 

30 F1=A(N) $ X1=X(NI S N=N*i S F2=A(N> S X2=X(N> 

N=N*1 2 F3=A(N> * X3=X(N» 

N=N*1 t F4=A (N) I X4=X(N> 

F1=F1/(X1-X2)/ (X1-X3)/ (XI— X4I 
F2=F2/ t X2-X1)/ (X2-X3)/ (X2-X4* 

F3=F3/(X3-X1)/(X3-X2)/(X3-X4> 

F4=F4/ (X4-X1)/ IX4-X2)/ CX4-X3) 

C(4)=F1*F 2mF3*F4 

C(3)=-F1*(X2<-X3»-X4)- F2* (Xl*-X3*-X4> -F3MX1+X2+X4) -F4* (XDX2+X3) 
C<2>=F1*(X2*(X3*X4J«-X3*X4>+F2*(X1*(X3HX4)*X3*X4)4-F3*(X1*(X2+X4>«- 
1X2*X4)MF4*(X1*(X2«-X3>HX2*X3> 
C(D=-F1*X2 j »X 3*X4-F2*X1*X3*X4-F3*X1*X2*X4-F4*X1*X2*X3 
RETURN t END 


COEFOOO 1 
COEFOOQ 2 
COEFOOO 3 
CGEF0004 
COEFOOQ 5 
COEFQOQ6 
COEFOOO 7 
COEFOOO 8 
COEFOOO 9 
COEFQQtO 
COEFOOll 
COE FO 012 
COEF0013 
COE FO 014 
COE FO 01 5 
COEF0316 
COEF0017 
COEFOOl 8 
COEFOOl 9 
COEF002Q 
COEF0021 
COEF0022 
COEF0023 
COEF0024 
COEF002S 
COEF0026 
COEF0027 


PROGRAM E I GUt INPUT, OUTPUT, PUNCH »TAPE5= INPUT, TAPE6= OUTPUT. TAPE7= 
1PUNCH) 


THIS IS A PROGRAM TO GENERATE EIGENVALUES AND EIGENFUNCTIONS FOR THE 
NON-GAUSSIAN TURBULENCE MODEL RESPONSE CALCULATIONS* THE EIGEN- 
FUNCTIONS ARE REPRESENTED BY PIECEWISE POLYNOMIAL FUNCTIONS OVER 
THE RANGE OF INTEGRATION, ANO ALL INTEGRATIONS ARE EXACT WITHIN 
THIS APPROXIMATION. 

THIS PROGRAM IS FOR LONGITUDINAL GUSTS ONLY 
P,Q ARE EIGENFUNCTION ARRAYS FOR ITERATIVE PROCESS 
EFP IS ARRAY FOR STORAGE OF EIGENFUNCTIONS 
ER1 IS ERROR TOLERANCE ARRAY FOR EIGENVALUES USING 21 POINT EIGFN APP.EIGU0G12 
ER2 IS ERROR TOLERANCE ARRAY FOR EIGENVALUES USING 41 POINT EIGFN APP.EIGU0013 
XII) IS ARRAY CONTAINING AeCISSAE OF EIGENFUNCTIONS EIGU0014 

NP IS THE MAXIHLH NUMBER OF A9CISSAE POINTS FOR EIGENFUNCTIONS. EIGU0015 

CURRENTLY SET TO 41, VALUES .GT. 45 REQUIRE REDIMENSIONING, NP MUSTEIGU0016 


EIGUQQQ 1 
EIGU000 2 
EIGUO 00 3 
EIGU000 4 
EIGU0005 
EIGUOOO 6 
EIGU0Q07 
EIGUOOO 8 
EIGUOOO 9 
EIGU0010 
EIGU0011 


BE AN OOC NUMBER. 

SHOULD COHFLEX POLES OCCUR, ONLY ONE OF EACH CONJUGATE PAIR 
IS TO BE USEO 


INPUT DATA! 

RESTRT (LI) 


LOGICAL INDICATOR FOR RESTART OPTION. IF RESTRT IS 
TRUE DATA OECK PUNCHED BY PREVIOUS RUN CAN BE USEO 
TO RESTART COMPUTATION. 


EIGU0Q17 
EIGUO 01 8 
EIGU0019 
EIGUO Q2Q 
EIGU0U21 
EIGUO 022 
EIGU0023 
EIGU0024 
EIGUO 025 
EIGUQQ26 
EIGU0027 
EIGUO 028 


IF RESTRT = .FALSE. DATA DECK IS AS FOLLOWS 

NFOL (ID NUHQER OF SYSTEM POLES TO BE REAO. IF COMPLEX POLES 
OCCUR, ONLY ONE OF EACH CONJUGATE PAIR IS USED. 
(Cim,AI(I),I=l,NPOL> (4E20.10) NUMERATORS AND POLES RESPECTI VELYE IGU002 9 
OF SYSTEM TRANSFER FUNCTION FARTIAL FRACTION EXPANSION EIGU0030 
IN COMPLEX FORM. IF COMPLEX POLES OCCUR, ONLY ONE OF EIGU0031 
THE PARTIAL FRACTION COMPLEX CONJUGATE TERHS IS USED. EIGU0032 
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REAL PART OF POLES MUST BE NEGATIVE FOR STABLE SYSTEM. 
SU,U,UL (3F10.5) TURBULENCE VELOCITY STANDARD DEVIATION, 

VEHICLE HEAN TRUE AIRSPEED, AND TURBULENCE GUST 
VELOCITY SCALE LENGTH. 

NEV (ID TOTAL NUMBER OF EIGENVALUES/EIGENFUNCTIONS REQUIRED. 

NEV MUST BE LESS THAN OR EQUAL TO 5. 

IF RESTRT = .TRUE. DATA DECK IS AS FOLLOHS 

(ALL PUT LAST THREE CARDS (EOR, CONT, NEV) ARE PUNCHEO BY 

PREVIOUS RUN! 

SU, U,UL (FORMAT 17) SEE DESCRIPTION ABOVE 
B,B1,NPCL, (CI(I) ,AI(I) ,I=l,NFOL) IFORMAT 6) 

NP,LO,HI (FORMAT 7) 

J,EIJ> , (X(K) ,EFF(K,J> ,K=1,NP> (FORMAT 13) 

END OF RECORD INDICATES ENO OF EIGENVALUE/EIGENFUNCTION DATA. 

CONT (LI) LOGICAL VARIABLE, IF TRUE IT IS ASSUMED THAT ITERATION 
CF THE LAST EIGENSOLUTICN IS TO CONTINUE, IF FALSE IT IS ASSUHEO 
THAT THE LAST EIGENSOLUT ION IS ACCURATE AND ITERATION OF THE 
NEXT SOLUTION IS TO BEGIN. 

NEV (ID TOTAL NUMBER OF EIGENVALUES/EIGENFUNCTIONS SOUGHT (.LE.5) 
DIMENSION E(5) ,ER1(5) ,ER2(5) 

COMMON /ARRAYS/ X (45) , P(45) , 0(45) ,NP, NSKIP, NPCLY,EFP(45,5> ,C(4) , 

ID (4) 

CQHMON /CONST/ Cl (5) , AI (5) , NPOL, B,B1 
COMMON /EVAl/ EVP 

COMFLEX Cl , AI S REAL LO S LOGICAL RESTRT ,CONT 
OATA ERI/1.6-3/ 

OATA ERi,ER2,NP/l.E-4,i.E-4,5.E-4,l.E-3,l.£-2,l.E-5,l.E-5,l.E-4, 

15 «E-4»1. E-3»4i/ 

DATA (X (I), 1=1, 41)/0... 01,. 02,. 03, .045,. 06.. 08,. 1071,. 1341, 

1.1612.. 13 «2,. 2153, .2424, .2694, .2965,. 3235, .3506, . 3776,. 404 7, 

2. A3 18,. 45 88,. 4859,. 5129,. 5 400,. 5671,. 5 941,. 6212,. 6482,. 67 53, 

3. 70 24.. 7254.. 7565.. 7835. .8106.. 8376. .8647.. 891 6.. 9188.. 9459, 

A. 9729,1./ 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

11 FORMAT 

12 FORMAT 


1 

2 

3 

4 

5 

6 

7 

8 


(111 

(4E2Q.10) 

(3F10.5) 

(110) 

(LI) 

(3X,E2D.12,5X,E20.12,11X,I2,/, (4E20.12)) 

(4X, 13, 27X, 2E2u.il) 

(8F10.5) 

(*e =*,£20.12, IX, *91 -*,£20.12 ,5X,*NPOL =* ,12,/, (4E2 0 . 12) ) 
(*NP =*,I3,5X,*RANGE OF INTEGRATION =*,2E20.11> 

13 FORMAT (43X,I2,E20.11,/, (2E25.14)) 

14 FORMAT (*SU =*,E15.7,1X,*MTAS =*,E15.7,1X, *UL =*,E15.7) 

17 FORMAT ( 4X,E15.7,7X,E15. 7, 5X,E15.7) 

REAO (5,5) RESTRT 

IF(. NOT. RESTRT) GO TO 20 

RESTART IS TRUE, REAO DATA FROH PREVIOUS RUN 
REAC (5,17) SU,U,UL 

READ (5,6) B, Bl, NPOL, (CI(I) ,AI(I) ,1=1, NP.OL) 

READ (5,7) NP,LO,HI 
DO 15 11=1,6 

REAC (5,13) J,E(J) , (X(K),EFP(K,J) ,K=1,NP) 

IF (EOF, 5) 16,15 

15 CONTINUE 
GO TO 300 

16 REAC (5,5) CONT 


EIGU0033 
EIGU0034 
EIGU0035 
EIGU0036 
EIGU0037 
EIGU003 8 
EIGUO 03 9 
EIGU004 0 
EIGU0341 
EIGU0042 
EIGUO 043 
EIGU0044 
EIGUO 045 
EIGU0046 
EIGUO 047 
EIGU0048 
EIGUO 04 9 
EIGUO 05 0 
EIGU0051 
EIGU0052 
EIGUO 053 
EIGUO 05 4 
EIGU0055 
EIGU0056 
EIGUO 057 
EIGU005 3 
EIGUO 05 9 
EIGU0Q60 
EIGU0061 
EIGU0062 
EIGUO 063 
EIGUO 064 
EIGU0065 
EIGU0066 
EIGUO 067 
EIGU0C68 
EIGUO 06 9 
EIGU007Q 
EIGU0071 
EIGU0072 
EIGU0073 
EIGUO 07 4 
EIGU0075 
EIGUO 076 
EI5U0077 
EIGUO 07 8 
EIGUO 07 9 
EIGUOO 80 
EIGUO 081 
EIGUO 082 
EIGUO 083 
EIGUO 0 8 4 
EIGU0085 
EIGU0086 
EIGU0087 
EIGUO 0 8 8 
EIGU0089 
EIGUO 090 
EISU0u91 
EIGUO 092 
EIGU0093 
EIGUO 094 
EIGUG095 



on oo no nnnnnnn n n on 


197 


RE AO 15,1) NEV 
1 = 11-1 

00 18 K=1 ,NP 
18 P ( K )=EFP C K , I) 

IF UN0T.C0NT) GO TO 95 
11 = 11-1 * 1 = 11-1 
GO TO 95 

RESTART IS FALSE, READ DATA OEFINING NEW PROBLEM. 

20 READ (5,1) MPOL 

IF ( NPOL) 900,900,21 

21 READ (5,2) (Cl ( I) , AI ( I) , 1=1 , NPOL) 

CHANGE SIGN OF EXPONENT SINCE ALL SUBROUTINES EXPECT NEGATIVE OF 
TRUE EXPONENT. 

00 22 1 = 1, NPOL 

22 AI ( I)=-AI ( I) 

REAS (5,3) SU, U,UL 

B=U/2./UL I HI=20./B S B1=SU*U/UL 
IF (HI.LE.l.) GO TO 26 


SCALE X VALUES TO COVER RANGE OF INTEGRATION, USE EI,EVP,EROR FOR 
TEMPORARY STORAGE. 

El IS LOWER LIMIT OF POWER LAW SCALING. 

NPWR IS POWER OF SCALING, HIGHER VALUES WILL PLACE MORE X VALUES NEAR EIGUG119 
ORIGIN. LOW VALUES WILL PROVIDE MORE EVEN DISTRIBUTION OF X VALUES EIGUC120 


EIGU0096 
EIGU3097 
EIGU009A 
E IGUO 099 
EIGUO 10 0 
E IGUO 10 1 
EIGUO 13 2 
EIGUO 10 3 
EIGU0104 
EIGUO 10 5 
EIGU0106 
EIGUO 10 7 
EIGUO 10 8 
EIGUO 10 9 
EIGUO 110 
EIGUO 111 
EIGU0112 
EIGUO 113 
EIGUO 11 A 
EIGU0115 
EIGUG116 
EIGUO 11 7 
EIGUu 11 8 


OVER RANGE OF INTEGRATION. 

EI= .05 t NPWR=1 

EROF=((HI-EI)/(l.-£I»-l. )/ (1 . -Ell **NPHR 

CO 25 1=1, NF 

EVP=X(I) 

IF (EVP.LT.EI) GO TO 25 

E VP=EVP-EI t £VP=EVP*(i.»EROR*EVP**NPWR»*EI 

25 X ( I 1 =EVP 

PUNCH PARAMETERS ON CAROS 

26 WRITE (7,14) SU,U,UL 

WRITE (7,11) B, Bl, NPOL, (CKI) , Aid), 1 = 1, NPOL) 
WRITE (7,12) NP,X(1) ,X(NP> 

1=0 * 11=1 
90 READ (5,1) NEV 
CONT=.F. 

95 IF (NEV-I1) 803,100,100 

COMPUTE EXACT SYSTEM RESPONSE VARIANCE 
100 CALL VARU(SU,UL,U,SR2) 

CALL STARAY (LO,LO) 

IF (.NOT. COM) GO TO 110 
ER0R=ER2(I1) t NSKIP=1 t GO TO 111 

GENERATE INITIAL GUESS OF EIGENFUNCTION P(ALPHAI 
110 ER0R=ER1 ( II ) i NSKIP=2 
CALL GUESS (ID 


EIGUQ121 
E IGUO 122 
EIGUO 123 
EIGUO 12 4 
EIGUO 125 
EIGUO 126 
EIGUO 127 
EIGUO 128 
EIGUO 129 
EIGU013O 
EIGUO 131 
EIGUO 132 
EIGUC133 
EIGUO 13 4 
EIGU0135 
EIGUC136 
EIGUO 137 
E IGUO 13 8 
EIGU0139 
E IGUO 14 0 
EIGUO 141 
EIGUO 14 2 
EIGUO 143 
E IGUO 144 
EIGU0145 
EIGU0146 
EIGUO 147 
EIGU0148 

111 WRITE (6,101) I1,SU,U,UL,(CI(J),AI(J) , J=1 , NPOL) EIGU0149 

101 FORMAT ( 1M1 , 5X ,* BEGIN ITERATION FOR EIGENVALUE AND EIGENFUNCTION NEIGU0150 

10.* ,I2,/,/,6X,*TURBUL£NCE P AR AMETERSI *,/ , 6 X , *ST D . DEV. =* , F6 . 3 , 5X , E IG UO 15 1 
2*MTAS =*,F8.3,5X,*SCALE LENGTH = * , F9. 3 ,/ , / , 6 X , * VEHICLE PA R AMET ERS « EIGU5 15 2 
3*. /,12X, ’COEFFICIENTS*, 26X, ’POLES*,/, (4 X, 2 El 3. 4, 8 X, 2E13.4) ) EIGU0153 

WRITE (6,102) SR2 EIGU0154 

102 FORMAT (1H0 ,5X, ’SYSTEM RESPONSE VARIANCE =* ,E1 3. 6 ,/ , 1H0) EIGU0155 

J=1 t EVP=EI=1.£50 t SEV=1. S GO TO 210 EIGU0156 

EIGUO 15 7 
EIGUO 158 


200 CALL FILL 
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ER0R=ER2 I II ) 

IF (I.GT.O EIGENFUNCTION MUST BE ORTHOGONAL TO ALL PREVIOUS FNS 
210 IF (I.LE.C) GO TO 300 
CALL ORTHOG(I) 

COMPUTE NORMALIZATION FACTOR 
30 C CALL NORNF(F) 

ESTIMATE EIGENVALUE 

400 EI=EI*F 

401 0EVP=ABS(ABS(1./£VP/F)-1.) 

EVP=SE V/F 

WRITE (6,405) J ,E VP , OE VP ,E I 

405 FORMAT (1H ,5X ,*I TER AT ION NO.*, 13,*. ESTIMATED EIGENVALUE IS*, 
1E15.7 ,*• ( OE VP =*,E10. 3,2X,*EI =* , E10 .3, *) *) 

NOPMALIZE EIGENFUNCTION 
500 CALL NORM(F) 

IF (( J.LT .30) .OR. ( (J/5)*5.NE.J) ) GO TO 520 
WRITE (6,510 (X(JJ) ,P(JJ) ,JJ=1,NP) 

510 FORMAT <1H .2E25.14) 

WRITE (7,511) II 

511 FORMAT (43X , 12) 

WRITE (7,707) (X< JJ> ,P(JJ) ,P(JJ) , JJ=1,NP) 

IF 0E V IS SUFFICIENTLY SMALL, ACCEPT EIGENFUNCTION 
520 IF ( (OEVP.LE.ERCR) . AND. (EI.LE.ERI) ) GO TO 700 
IF ((J.GE.25). AND. ( NSK IF. NE.l ) ) GO TO 200 

EIGENFUNCTION NCT YET FOUND, CONTINUE ITERATION PROCESS 
600 CALL ITERAT (El ,SEV) 

J=J*1 
GO TO 210 

ERROR IS BELOW TOLERANCE, CHECK TO SEE THAT MAX. NO. OF POINTS USED 
700 IF (NSKIP.NE . 1) GO TO 200 
ACCEPT EIGENFUNCTION 
1=1*1 1 11=1*1 

E ( I ) =E VP S FS=EVP**2/SR2 S TFS=0. 

DO 702 J=1,I 

702 TFS=TFS+E ( J) **2 S TFS=TFS/SR2 
WRITE (7,706) I, EVP 

706 FORMAT (’EIGENVALUE AND CONJUGATE EIGENFUNCTIONS NO. * , 12, E2 0 . 1 1 ) 
WRITf (7,707) (X(J)fP(J) ,P(J) ,J=1,NP) 

707 FORMAT (3E25.14) 

WRITE (6,706) I , F VP , F S , I , TFS , ( X ( J) , P( J ) , J= 1 , NP) 

708 FORMAT (1H1,5X, ’EIGENVALUE NO.*, 12,* IS* , E 14 .7 , 2 (/ ) , 6X, *FR ACTION 
2F RESFONSE VARIANCE DUE TO THIS EIGENVALUE IS* , F7 . 5 ,/ ,6X , 

3 *FR ACTI C N OF RESPONSE VARIANCE DUE TO FIRST*, 12,* EIGENVALUES IS* 
4F7.5 ,/,/, 5X,*X*, 11 X, ’EIGEN FUNCTION*,/, (6X, F 8 .4 , 5 X , £17 . 10 ) ) 

IF (I.GE.NEV) GO TO 800 
CALL STCR(I) 

CONT=.F. 

GO TO 110 

800 WRITE (6,805) NEV , ( J , E ( J ) , J=1 , I» 

805 FORMAT (1M1,5X, ’FIRST*, 12,* EIGENVALUES ARE t * ,/ , ( 1 0 X , 12 ,2 X , E15 . 7 ) 
FS=SR2* (l.-TFS) 

WRITE (6,ei0) FS, TFS 

810 FORMAT ( 1 H 0 , 5X , *REM A INI NG EIGENVALUES SQUARED SUM TO* , E15 . 7 ,/ , 6X, 
1*THE ABOVE EIGENVALUES ACCOUNT F0R*,F7.5,* OF THE RESFONSE VAR.*) 
IF (FS.LT.O.) GO TO 900 


EIGU0159 
EIGUO 160 
EIGU0161 
EIGU0162 
EIGU0163 
EIGU0164 
EIGUQ165 
EIGU3166 
EIGU0167 
EIGU0168 
EIGU0169 
EIGU0170 
EIGU0171 
EIGUC172 
EIGU0173 
EIGU0174 
EIGU0175 
EIGU0176 
EIGU0177 
EIGU017 8 
EIGUC179 
EIGU0180 
EIGU0181 
EIGU0182 
EIGU0183 
EIGU0184 
EIGU0185 
EIGU0186 
EIGU0187 
EIGUC188 
EIGU0189 
EIGUC190 
EIGU0191 
EIGUO 192 
EIGU0193 
EIGU0194 
EIGUO 195 
EIGU0196 
EIGU0197 
EIGU0198 
EIGU0199 
EIGUO 20 0 
EIGU02Q 1 
EIGU0202 
£ IGU020 3 
EIGUO 20 4 
EIGU020 5 
0 EIGUO 20 6 
EIGUG207 
, EIGUO 20 8 
EIGUO 209 
E IGUj 21 0 
EIGUO 21 1 
EIGUO 212 
EIGU0213 
EIGUG214 
EIGU0215 
) EIGUO 216 
EIGUU217 
EIGUO 21 8 
EIGU0219 
EIGU0220 
EIGUG221 
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FS=SQRT(FS) 

WRITE (6.812) PS 

812 FORMAT (1H ,5X, ’LARGEST POSSIBLE REMAINING EIGENVALUE IS*,E14.7) 
900 STOF t ENO 

SUBROUTINE VARU t SU.UL .U.S2) 

A SUBROUTINE TO CONFUTE THE RESPONSE VARIANCE OF A LINEAR SYSTEM 
SUBJECTEO TO RANDOM INPUT WITH ORYOEN U-GUST SPECTRUM 


EIGU0222 
EIGU0223 
EIGUQ224 
EIGU0 225 
EIGU0226 
EIGU0227 
EIGU0228 
EIGU0229 
EIGUL230 
EIGU0231 
EIGU0232 
EIGU0233 


SU = TURBULENCE STANDARD DEVIATION 
UL = TURBULENCE SCALE LENGTH 
U = VEHICLE MEAN TRUE AIRSPEEO 
AI = VEHICLE IMPULSE RESPONSE EXPONENTS (MUST HAVE POSITIVE REAL PART) EIGUO 234 
Cl = VEhICLE IMFULSE RESPONSE CONSTANTS EIGU0235 

IF Cl CR AI IS COMPLEX, ONLY ONE OF EACH CONJUGATE PAIR IS TO SE USEOE ISUQ236 

EIGU0237 

COMFLEX CI.AI.AJ, AK,CJ,CK,C2,C3,C4 
COMMON /CONST/ Cl (5 ) , AI (5) , NPOL 
LOGICAL R11.RL2 
C=U/UL * S2=0. 

00 20 K= 1 .NPOL 

C4=C. * AK=AI <K) t CK=CI(KI 
RL1=AIMAG(AK).EQ.O..ANO. AIMAG(CK) .EQ.O. 

5 DO 10 J= 1 » NPOL 
C3=C. t AJ=AI(J) S CJ=CI(J) 

RL2=AIMAG(AJ) .EQ.O.. AND . AI M AG ( CJ> .EQ. 0 . 

6 C2=1./(C-AJ) 

C2=C2*(1./ (AJ’AK)/ (AJ«-C)-.5/C/ (AK*C)> 

C2=C2*CJ*CK 
C3=C3’C2 

IF (RL2) GO TO 10 

AJ=CONJG(AJ) S CJ=CONJG(CJ) S RL2=.T. * GO TO 6 


* RL1=.T. t GO TO 5 


10 C4=C4*C3 

IF (RL1I GO TO 20 
AK=CONJG(AK) * CK=CONJG(CK) 

20 S 2=S2*-RE AL I C4I 
S2=S2*2.*C»SU”2 
RETURN t ENO 
SUBROUTINE FILL 

THIS SUBROUTINE INTERPOLATES THE 21 POINT EIGENFUNCTION TO FORM THE 
FIRST APPROXIMATION TO THE 41 POINT EIGENFUNCTION. 

COMMON /ARRAYS/ X (45 ) , P ( 45 ) , I , II ,K »XP ,C (41 ) , NP. NS KIP 

I1 = NSKIP/2H 

00 1C 1=11 .NP.NSKIP 

X°= X ( I ) J K=I+1-I1 

CALL COEF(K.P.C) 

10 P(I)= ((C(4)*XP’C(3))*XP«-C(2) )*XP+CI1) 

NSKIP=NSKIP/2 
RETURN * ENO 
SUBROUTINE GUESS(I) 

THIS SUBROUTINE GUESSES THE NEXT EIGENFUNCTION TO BE THE 
DERIVATIVE CF THE PROVIOUS RESULT OR X*EXP(-3.*X) FOR THE FIRST. 

COMMON /ARRAYS/ X ( 45) , P t 45) , J, X J ,K ,DX ,DP ,Q C4C > , NP , NSKIP 

IF (NSKIP. LE.l) GO TO 70 

IF (I.GT.l) GO TO 50 

00 10 J=i, NP.NSKIP 

XJ=X(J) 

10 P< J)=XJ*£XP(-3.*XJ) 

RETURN 


EIGU0238 
EIGU0239 
EIGU0240 
EIGU0241 
EIGU0242 
EIGUQ243 
EIGU0244 
EIGU0245 
EIGU0246 
EIGUO 247 
EIGUQ24S 
EIGUO 24 9 
EIGUO 250 
EIGU025 1 
EIGUB252 
EIGUO 253 
EIGUO 254 
EIGUQ255 
EIGUO 256 
EIGUO 25 7 
EIGU0258 
EIGUO 25 9 
EIGUO 260 
EIGUO 261 
EIGU0262 
EIGUC263 
EIGUO 264 
EIGU0265 
EIGU0266 
EIGU0267 
EIGUO 26 8 
EIGU0269 
EIGUO 27 0 
EIGUO 271 
EIGUC272 
EIGU027 3 
EIGU0274 
EIGUO 27 5 
EIGUO 276 
EIGU0277 
EIGUO 27 9 
EIGUO 27 9 
EIGUO 28 0 
EIGU0281 
EIGUS282 
EIGU0283 
EIGUO 28 4 
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0X=X(J)-X(J-1) C XJ=X(J) 


50 K=NSKIP*1 

DO 60 J=K»NF*NSKIP 
0P=F( J) -P(J-l) < 

XJ=XJ*EXP(-3.*XJ) 

60 P(JI=XJ*0P/0X 
RETURN 

70 WRITE (6,71) NSKIP 

71 FORMAT (1H ,5X,*NSKIP =*,110,* NOT ALLOWED IN GUESS*) 

STOP S ENO 

SUBROUTINE NORNFIF) 

COMPUTES NORM OF THE FUNCTION P(X) 

THE NORN IS THE ESTIMATED EIGENVALUE, THE INVERSE OF THE NORM IS THE 
NORMALIZATION FACTOR 

COMMON /ARRAYS/ X (45 ) , P ( 45 ) , C ( 4) , FI , NP1 , J, I , XI , XZ , II , CII, I J , K, CK, 
1X12,X22, JJ,C<27) ,NP,NSKIP,NP0LY 
F1=0. f NPl=NPOLY*l * J=NP-i 
OO 60 1=1, J, NSKIP 
F = 0. 

CALL COEF (I ,P,C) 

12 X1=XCI) t X2=X(I*NSKIP) 

IF (X2.GT.X (NP) J X2=X(NP) 

00 40 11=1 , HPOLY 
CII=C(II) J IJ=II*1 1 
X12=X1**K I X22=X2**K 
00 40 J J= I J , NP1 
F = F»CII*C(JJ)*(X22-X12)/CK 
CK=CKH. S X12=X12*X1 
X22=X22*X2 

F=F*2. S X12=X1**2 S X 22=X2**2 
00 50 11=1, NP1 

F=F»(X2-X1)*(C(II)**2)/CK S CK=CK*2 , 

X1=X1*X12 
F1=F1*F 
F=SGRT(1./F1) 

RETURN 


4C 


50 

60 


K=II*IJ-1 S CK=FLOAT(K» 


S CK=1, 


$ X2=X2*X22 


NORMALIZE EIGENFUNCTION P 
ENTRY NORM 
00 ICC 1=1, HP, NSKIP 
IOC P(I)=FU)*F 

RETURN ? ENO 
SUBROUTINE CRTHOG(I) 

A SUBROUTINE TO ORTHOGONALI ZE P(X) WITH RESPECT TO THE FIRST I EGNFNS 

COHMON /ARRAYS/ X ( 45 ) , P ( 45 ) , Q (45 ) , NP, NS KI P, NPOL Y, EFP ( 45,5 ) ,C(4) , 
10(4) 

NP1 = NPOLY*l 
00 5C J=i,I 
00 10 JJ=1, HP, NSKIP 
1C C( JJ)=EFP( JJ, J) 

K=NF-1 t F=0 , 

00 40 JJ=1,K, NSKIP 
CALL COEF (JJ,P,C) 

CALL C0EF(JJ,Q,0> 

X1=X(JJ) S II=JJHNSKIF t IF (II.GT.NP) II=NP S X2=X(II) 

DO 40 11=1, API 

X12=X1**II t X22=X2**II I CII=C(II) i CL=FLOAT (II) 

DO 40 KK=1,NP1 


EIGUO 285 
EIGU0286 
EIGUQ28 7 
EIGU028 3 
EIGU0289 
EIGU0290 
EIGU0291 
E IGUC292 
EIGU0293 
EIGU0294 
EIGU0295 
EIGU0296 
EIGU0297 
EIGU0298 
EIGU0299 
EIGU0300 
EISUu 301 
EIGU0302 
EIGU030 3 
EIGU0304 
EIGU0305 
EIGU330 6 
EIGU030 7 
EIGUO308 
EIGU030 9 
EIGU0310 
EIGU0311 
EIGU0312 
E IGUu 31 3 
EIGU0314 
EIGUu315 
EIGU0316 
EIGU0317 
EIGU031 8 
EIGU0319 
EIGU0320 
EIGU0321 
EIGU0322 
EIGU0323 
EIGU0324 
EIGUQ325 
EIGU0326 
EIGU0327 
EIGU0328 
EIGU0329 
E IGUQ 33 0 
EIGU033 1 
EIGUO 33 2 
EIGU0333 
EIGU0334 
EIGUO 33 5 
EIGU0336 
EIGU0337 
EIGUO 33 8 
EIGUO 33 9 
EIGUO 34 0 
E IGUU 34 1 
EIGUO 342 
EIGUO 343 
EIGU0344 
EIGU0345 
E IGU0346 
EIGU0347 
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F=F»CII*0(KK)M X22-X12I /CL t CL=CL*1. * X12=X12*X1 

40 X22 = X22*X2 

DO £0 JJ=1,NP,NSKIP 
50 P( JJ)=P( JJ) -F*Q(JJI 
RETURN t END 
FUNCTION SUM (I, J) 

FORMS PROOUCT (J-I + i I *( 3-1*21 ...... (J> 

N=1 

IF ( I ) 20,20,10 
10 K=J-I*1 

DO 15 L=K,J 
15 N=N*L 
20 SUM=FLOAT(N» 

RETURN t END 
SUBROUTINE COEF(I,A,C» 

ft SUBROUTINE TO FILL C ARRAY WITH THE COEFFICIENTS OF THE 

POLYNOMIAL REPRESENTING A(X) BETWEEN XII) AND XCI+NSKIPI. NPOLY IS 

THE ORDER OF THE POLYNOMIAL 

POLYNOMIAL IS C(ll ♦ C(2I*X * C(31*X**2 % C(4»*X**3 
OIMENSICN A (1) ,C(1I 

CCMNON /ARRAYS/ X (45 1 , P ( 45 ) , Q ( 45> , NP, NSKIP, NPOLY 
DATA NPCLY/3/ 

IF (I.GT.KSKIPI GO TO 10 
N=1 f GC TO 30 

10 IF f I.LE. NP-2*NSKIPI GO TO 20 
N=NP-3*NSKIF t GO TO 30 
20 N=I-NSKIP 

30 F1=A(N> 1 X1=X(N> t N=N*NSKIP 

N=N»NSKIP I F3=A(N» * X3=X(N» 

N=N*NSKIP 2 F4= A (N) t X4=X(N) 

F1=F1/(X1-X2I/(X1-X3I/(X1- X4I 
F2=F2/(X2-X1)/ (X2-X3I/ (X2-X4I 
F3=F3/ tX3-Xl)/(X3-X2>/(X3-X4l 
F4=F4/(X4-X1>/(X4-X2I/(X4-X3I 
C(4l=Fi+F2*F3*F4 
C(3I=-F1* (X2+X3+X4J -F2* ( XI *X3 *X4 I -F3* ( X1+X2 *X4) -F4* (X1*X2*X3) 

C ( 2) =F 1*1X2* (X3+X41 *X3*X4I ♦ F2* (X 1* (X3 * X4 1 ♦ X3*X4 » * F3* ( X1*(X2 *X4> ♦ 
1X2*X4)*F4MX1» (X2 + X3) *X2*X3I 
C< 1) = -F1*X2*X3*X4-F2*X1*X3*X4-F3*X1*X2*X4-F4*X1»-X2*X3 
RETURN I END 
SUBROUTINE CIFC 

INTEGRATE COMPLEX TERMS OF TRANSFER FUNCTION 


* F2=A IN) S X 2= X ( Nl 


EQUIVALENCE (E,ERI , CXE.XER) , (XE1.XE1R) , (Ol.OlRI 
CCMKON /OIF/ X,E,N,D1 
COMPLEX E,XE,XE1,D1 
N1=M*1 * 01=0. 

IF (Nl 70,10.20 

CONSTANT TERM OF POLYNOMIAL 
10 Dl=l. t GC TO 30 


POWER TERM CF POLYNOMIAL 
20 IF (X.NE.0.1 GO TO 25 
Q1=(-1./EI**N*SUM(N,N> 

GO TO 30 
25 XN=X**N 

X£1=X*E * XE=1. t Sl=l. 

00 2fl 1=1, Nl 
Dl= XN/ XE *S1 *01 t 


t S2=FLO AT (N) 


EIGU0348 
EIGU0349 
EIGU0350 
EIGU0351 
EIGU0352 
EIGU0353 
EIGU0354 
EIGU0355 
EIGU0356 
E IGUO 35 7 
EIGU0358 
EIGU0359 
EIGU036 0 
E IGUO 351 
EIGUfl 362 
EIGU0363 
EIGUG364 
EIGUO 3b5 
EIGU0366 
£ IGUO 36 7 
EIGUO 36 8 
EIGUO 36 9 
EIGUO 37 0 
EIGU037 1 
EIGU037 2 
EIGUO 373 
E IGUO 374 
EIGUO 37 5 
EIGU037 6 
EIGU0377 
EIGUO 37 8 
EIGUO 3T 9 
EIGUC38 0 
EIGUO 38 1 
EIGUO 382 
EIGU0383 
EIGU0384 
E IGUO 3 85 
EIGUO 38 6 
EIGU0387 
EIGU0388 
EIGU0389 
EIGUO 39 0 
E IGUO 391 
EIGUO 392 
E IGUO 393 
EIGUO 394 
EIGUO 39 5 
EIGU0396 
EIGU0397 
EIGUO 39 8 
E IGUO 399 
EIGU040 0 
EIGU040 1 
EIGUO 40 2 
EIGU040 3 
EIGUO 40 4 
EIGU0405 
EIGUO 40 6 
EIGU0407 
EIGU04Q 8 
EIGU040 9 
EIGUO 410 


XE=X£*XE1 S S1=S1*S2 t S2=S2-1 
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28 XN=-XN 

30 D1=C1*CEXF(E*X)/E 
70 RETURN 

INTEGRATE REAL TERMS OF TRANSFER FUNCTION 
ENTRY OIFR 
N1=N*1 t 01*0. 

IF (N) 17C.110.120 

CONSTANT TERM OF POLYNOMIAL 
110 D1R=1. t GO TO 130 

POWER TERM OF POLYNOMIAL 
120 IF IX.NE.O.) GO TO 12S 
01R=(-1./ER(**N*SUM(N,NI 
GO TO 130 


CYCLE THROUGH POLES OF TRANSFER FUNCTION 
OO 100 IPCL=l»NPOL 
C1=CI (IFOL)/ < AI ( IPOL) -2. *8) 
E2=CEXP(-ALFHA*(AI(IP0LI-8)> 

V1=0. $ V2=0. 

CYCLE THROUGH X INTERVALS 
OO 10 NX=1 * MPOl 
01S(NX)=01A(1,NX) 

10 02S(NX) = D1CA < 1. NX. IPOL) 

I=NSKIP*1 t NX 1=1 
OO 80 NX=I,AP,NSKIP 
X1=X(NX) 

CYCLE THROUGH TERMS OF POLYNOMIAL 
DO 60 NPO=l »NP01 

C1=01ACNX,NPO» t E=01-01S(NP0) t 

20 01S (NPO )=C1 

IF (Xl-ALPHA) 21, 21, M0 

21 01C=01CA INX.NPO.IPOLI 

V 1=111 -El* (O1C-02S INPOII 
25 02S(NP0)=01C 
GO TO 59 
40 V1=V1-E2*E 
59 V2=V1*CA(NXI)+V2 


EIGU0411 
EIGUU412 
EIGUii413 
EIGUQ414 
EIGUu415 
EIGU0416 
EIGUu417 
EIGU041 8 
EIGUU419 
EIGUU420 
EIGU0421 
EIGU0422 
EIGU0423 
EIGU0424 
EIGU042 5 
EIGU0426 
EIGU0427 
EIGU0428 
EIGU042 9 
EIGU0430 
EIGU0431 
EIGU0432 
EIGU0433 
EIGU0434 
EIGU0435 
EIGU0436 
EIGU0437 
EIGU0438 
EIGU0439 
EIGUQ440 
EIGU0441 
EIGU0442 
EIGU0443 
EIGUQ444 
EIGU0445 
EIGU0446 
EIGU0447 
EIGU0448 
EIGU0449 
EIGU045 0 
EIGUa 451 
EIGU0452 
EIGU0453 
EIGU0454 
EIGU0455 
EIGUQ45 6 
EIGU0457 
EIGU045 8 
EIGU0459 
EIGU0460 
EIGU0 461 
EIGU0462 
EIGU0463 
EIGU0464 

Vl=El*E EIGU0465 

EIGU0 466 
EIGU0467 
EIGU0468 
EIGU0 46 9 
EIGU047 0 
E IGUtl 47 1 
EIGU0472 
EIGU0473 


125 XN=X**N 

XE1R=X*ER * XER=i. S Sl*l. t S2=FLOAT(N) 

OO 128 1=1, M 

D1R=XN/XER*S1*D1R S XER=XER*XE1R t S1=S1*S2 $ S2=S2-1. 

128 XN=-XN 

130 D1=CMPLXID1R*EXP(ER*X»/ER,0.0I 
170 RETURN t END 

SUBROUTINE NTGRALCV, ALPHA* 

INTEGRATES P I X) *H( ALPHA, X) 

COMMON /ARRAYS/ X (45 ) , P (45) ,Q (45) ,NP, NSKIP, NPOLY,EFP ( 225) » C(4I 
COMMON /CONST/ Cl ( 5) , AI (5) , NPOL, B,B1 
COMMON /OIF/ X1,E,NP0N,01C 
OIMENSICN 01S(4) ,02S(4) 

DIMENSION 01A(45,4) , 01CA (45 ,4, 2) ,CA(180> 

COMPLEX 01CA 

COMPLEX AI,CI,E,Ci,C2, VI, V2,E2,02S,D1C 
LOGICAL RL 

EQUIVALENCE (£,ER) , (01,01C» 

V=0. S £1=EXP(-3*ALPHA» 
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60 NX I=NXI»1 
80 CONTINUE 
V2=V2*Ci 

IF ((AIXAGfCl) .EQ. 0 . ) .AND. (AIHAGCE2J.EQ.0.I) GO TO 100 
V2=2.*REALIV2> 

100 V=V*V 2 
W=V*B1 
GO TO S00 


ENTRY STARAY 
NP01=NP0LY*1 * ER=-B 
00 200 NX=1,NP 
X1=XINX» 

00 200 NP0=1»NP01 
NPOH=NPO-1 
CALL OIFR 
200 01A 1NX,KPC1 = 01 

00 300 IPCL=1,NP0L 

E= 9-AI CIPCL) S RL=AIHAGlE).EQ.O. 

00 300 NPO=1,NP01 

NP0M=NP0-1 

00 300 NX=1,NP 

X1=X CNX1 $ IFCRLI GO TO 250 S CALL OIFC * GO TO 300 
250 CALL OIFR 
3C0 01CA|NX,NF0,IP0LI=01C 
GO TO 500 

GENERATE TABLE OF POLYNOMIAL COEFFICIENTS 
ENTRY GENCOt 
NP0=0 

DO 400 NX 1=1 1 NP» NSKIP 
IF (NXI-NP) 350,400,400 
350 CALL COEF (NXI»P,C) 

00 3«0 NPQ1=1,4 
NPO=NPO»l 

380 C A ( NPOl =C CNPOl I 
400 CONTINUE 

NP01=NPCLYH 
50 C RETURN t ENO 

SUBROUTINE HERAT (E, SEV) 

A SUBROUTINE TO ITERATE THE EIGENFUNCTION P(X» 

COMMON /ARRAYS/ X ( 45 ) , P <45 ) ,0(45) ,NP, NSKIP, NPOL Y 
COMMON /EVAL/ EVP 
CALL GENCOE CQ , XI 
Q(1)=0. 1 E=0. S I1=NSKIP*1 

DO 50 1=11, KP, NSKIP 
30 QI=P1II*EVP 

CALL NTGRAL<Q<I>,X<I»I 
50 E=EKA9S(QI)-A3StQIim»»Z 

E=SCRT<E> /FLOAT <NP» t S1=S2=0. 

00 60 I=ljNP, NSKIP 

S1=S1*-ABS<P<I)«-0II>) S S2=S2»ABS<P<I>-Q(I>> 

60 P»I)=0«I» 

IF JS1-S2) 70,80,90 
70 SEV=-1, * GO TO 100 

80 WRITE <6,81» t STOP 

81 FORMAT I1H ,5X,*ZERO EIGFN. COHPUTED BY ITERAT*! 

90 SEV=1. 

100 RETURN t ENO 

SUBROUTINE STORIII 


EIGU047 4 
EIGU0475 
EIGU0476 
EIGUQ477 
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EIGU0480 
EIGU0481 
EIGU0482 
EIGU0483 
EIGU0484 
EIGU0485 
EIGU0486 
EIGU0487 
EIGU048 8 
EIGU04S9 
EIGU0490 
EIGU0491 
EIGUC 492 
EIGU0493 
EIGU0494 
EIGU0495 
EIGU0496 
EIGU0497 
EIGU0498 
EIGU0499 
EIGU0500 
EIGUC 50 1 
EIGUO 50 2 
EIGU0503 
EIGU0504 
EIGU0505 
EIGU0506 
EIGU050 7 
EIGU050 8 
EIGU0 50 9 
EIGU0510 
EIGU0 511 
EIGU0512 
EIGUC 513 
EIGUG514 
EIGU0515 
EIGU0516 
EIGU0517 
EIGUu 51 8 
EIGUC 51 9 
EIGU0520 
EIGUC 521 
EIGU0522 
EIGU0523 
EIGU0524 
EIGUO 52 5 
EIGUC 52 6 
EIGU0527 
EIGUO 528 
EIGU052 9 
EIGUO 530 
EIGU0531 
EIGU0532 
EIGUG533 
EIGUC534 
EIGU0535 
EIGUO 536 
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STORES ITH EIGENFUNCTION 

< ,i 

COMMON /ARRAYS/ X {45 ) ,P (451 , J,0UM(44> »NP,NSKIP»NP0LY»EFP(45 ,5) 
DO 10 J=1,NP 
10 EFP(J,I)=P(J> 

RETURN t ENO 


EIGU0537 
EIGUO 530 
EIGU0539 
EIGU0540 
EIGUG541 
EIGUG542 
EIGUO 5 1*3 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM £IGVH( INPUT, OUTPUT, PUNCH, TAPE5= INPUT ,T AP£6=0UTPUT ,T APE7= 
1 PUNCH) 

THIS IS A PROGRAM TO GENERATE EIGENVALUES AND EIGENFUNCTIONS FOR THE 
NON-GAUSSIAN TURBULENCE MOOEL RESPONSE CALCULATIONS! THE EIGEN- 
FUNCTIONS ARE REPRESENTED BY PIECEWISE POLYNOMIAL FUNCTIONS OVER 
THE RANGE OF INTEGRATION, AND ALL INTEGRATIONS ARE EXACT WITHIN 
THIS APPROXIMATION. 

THIS PROGRAM IS FOR VERTICAL AND LATERAL GUSTS ONLY 

P( ALPHA), Q(BETA) ARE EIGENFUNCTION ARRAYS FOR ITERATIVE PROCESS 

£FP»EFQ ARE ARRAYS FOR STORAGE OF EIGENFUNCTIONS 

ER1 IS ERROR TOLERANCE ARRAY FOR EIGENVALUES USING 21 PCINT EIGFN 
ER2 IS ERROR TOLERANCE ARRAY FOR EIGENVALUES USING 41 POINT EIGFN 
X(I> IS ARRAY CONTAINING ABCISSAE OF EIGENFUNCTIONS 
NP IS THE MAXIMUM NUMBER OF ABCISSAE POINTS FOR EIGENFUNCTIONS. 
CURRENTLY SET TO 41, VALUES .GT. 45 REQUIRE REDIMENSIONING , NP 
PE AN ODO NUMBER. 

E IS THE EIGENVALUE ARRAY 

HI IS THE UPPER LIMIT OF INTEGRATION 

NPOL IS THE NUMBER OF POLES IN THE LINEAR SYSTEM TRANSFER FUNCTION 
SHCULO COMPLEX POLES OCCUR, ONLY ONE OF EACH CONJUGATE PAIR 
IS TO EE USEC 

INPUT OATA« 

RSSTRT f LI ) LOGICAL INDICATOR FOR RESTART OPTION. IF RESTRT IS 
TRUE OATA OECK PUNCHED BY PREVIOUS RUN CAN BE USED 
TO RESTART COMPUTATION. 


EIGVWGOO 
EIGVW001 
EIGVWQ02 
EIGVH003 
EIGVWO0 4 
EIGVMOO 5 
EIGVHOO 6 
EIGVW007 
EIGVWD08 
EIGVHOO 9 
EIG VW010 
APP. EIGVH 01 1 
A a P. EIG VW01 2 
EIGVHQ13 
EIGVW014 
MUSTEIGVW015 
EIG VW016 
EIGVW017 
EIGVW01 8 
EIGVW019 
EIGVW020 
EIG VW 02 1 
E IG VWG22 
EIGVW023 
EIGVM024 
EIG VH025 
EIG VW026 
EIGVH027 
EIGVW02 8 
EIGVH02 9 
EIGVW030 


IF RESTRT = .FALSE. DATA OECK IS AS FOLLOWS 

NPOL (ID NUMBER OF SYSTEM POLES TO BE READ. IF COMPLEX POLES 
OCCUR, ONLY ONE OF EACH CONJUGATE PAIR IS USED. 

(CI(I) ,AI(I), 1 = 1, NPOL) (4E20.10) NUMERATORS AND POLES RES PE CTIVELYEIGVW031 
CF SYSTEM TRANSFER FUNCTION FARTIAL FRACTION EXPANSION EIGVW032 
IN COMPLEX FORM. IF COMPLEX POLES OCCUR, ONLY ONE OF 
THE PAPTIAL FRACTION COMPLEX CONJUGATE TERMS IS USEO. 

REAL PART OF POLES MUST BE NEGATIVE FOR STABLE SYSTEM. 

SW,U, WL (3F10.5) TURBULENCE VELOCITY STANDARD DEVIATION, 

VEHICLE MEAN TRUE AIRSPEED, AND TURBULENCE GUST 
VELOCITY SCALE LENGTH, 

NSV til) :T CT A I NUMBER OF EIGENVALUES/EIGENFUNCTIONS REQUIRED. 

KEV MUST BE LESS THAN OR EQUAL TO 5. 


IF RESTRT = .TRUE. DATA DECK IS AS FOLLOWS 

(ALL BUT LAST THREE CARDS (EOR,CONT,NEV) ARE PUNCHED BY 

PREVIOUS FUN) 

SW.U.WL (FORMAT 17) SEE DESCRIPTION ABOVE. 

B,B1,NPCL,(CI(I), AI(I), 1=1, NPOL) (FORMAT 6) 

NP,LO*HI (FCRMAT 7) 

J,E(J),(X(K),EFF(K,J),EFQ(K,J),K=1,NP» (FORMAT 13) 

ENO OF RECORD INDICATES END OF EIGENVALUE/EIGENFUNCTION DATA. 

CONT (LI) LOGICAL VARIABLE, IF TRUE IT IS ASSUMED THAT ITERATION 
OF THE LAST EIGENSOLUTION IS TO CONTINUE, IF FALSE IT IS ASSUNEO 


EIGVHC33 
EIGVW034 
EIGVWG35 
EIGVW036 
EIGVW037 
EIGVW038 
EIGVWQ39 
EIG VWG40 
EIGVH041 
EIGVW042 
EIGVW043 
EIGVW044 
EIGVH045 
EIGVW046 
EIG VW047 
EIGVW048 
EIGVW049 
EIGVW050 
EIGVHOS 1 
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THAT THE LAST EIGENSOLUT ION IS ACCURATE AND ITERATION OF THE 
NEXT SOLUTION IS TO BEGIN. 

NEV (III TOTAL NUMBER OF EIGENVALUES/EIGENFUNCTIONS SOUGHT (.LE. 
DIMENSION E (5) ,ER1 (5) ,ER2(5) 

COMMON /ARRAYS/ X ( 45 ) , P l 45 } , Q (45) , OUM (45) , NP ,NS KIP, NPOLY, USEP, 
1EFP (45, 5) ,EFQ(45,5),C(4>,0(4) 

COMMON /CONST/ CK5) , AI<5) ,NP0L,B,B1 
COMMON /EVAL/ EVP.EVQ 

COMPLEX C1,AI S REAL LO S LOGICAL RESTRT ,USEP»CONT 
DATA FRI/l.E-3/ 

OAT A ERl,ER2,NP/l.E-4,l.£-4,5.E-4,l.E-3,l.E-2,i.E-5,l.E-5,l.E-4. 
15. £-4,1. £-3, 41/ 

OATA (X(I), 1=1, 411 /0.,. 01,. 0 2,. C 3,. 045,. 06,. 08,. 1071,. 1341 , 

1. 1612.. t 8 82 ,. 2153 2424 ,. 2694,. 2965*. 3235,. 3506,. 3776*. 4047 , 

2. 4318.. 458 8.. 4359.. 5129..540G,. 5671,. 5941,. 6212,. 6482,. 6753, 

3. 7024.. 7294.. 7565.. 78 35.. 8 106.. 8 376.. 8647. .8918.. 9188.. 9459, 

4.9729.1. / 

1 FORMAT fill 

2 FORMAT I4E20.10I 

3 FORMAT (3F10.5I Y 

4 FORMAT (110) 

5 FORMAT <L1 t 

6 FORMAT (3X,E20.12,5X,E20.12,11X,I2,/,(4E20.12)> 

7 FORMAT (4X,I3,27X, 2E2Q .111 

8 FORMAT (8F1D.5I 

11 FORMAT (*E =*,£20.12, IX, *81 =* , £20 .12 , 5X ,*NPOL =* , I2,/» (4 E20 . 12) 

12 FORMAT (*NP =*,I3»5X,*RANG£ OF INTEGRATION =*,2E20.11) 

13 FORMAT (43X, 12, E20.ll, /, I3E25.14)) 

14 FORMAT (*SH =*,£15.7,1X,*MTAS = * , E15. 7 , IX , *HL =*,El5.7) 

17 FORMAT (4X,E15.7,7X,£15.7,5X«£15.7) 

REAO (5,5) RESTRT 

IF I .NOT .RESTRT I GO TO 20 

RESTART IS TRUE, REAO OATA FROM PREVIOUS RUN 
REAC (5,171 SW,U,WL 

RE AC (5,6) B,91,NP0L,(CHI) , AI C I» , 1=1 , NPOL) 

REAO (5,7) NP,LO»HI 

oo is 11 = 1 , e 

REAO (5,13) J,E(JI , (X(K) ,EFP(K, Jl ,EFQ(K, J) ,K=1,NP» 

IF (EOF, 5) 16,15 

15 CONTINUE 
GO TO 800 

16 REAO (5,5) CONT 
REAO (5,1) NEV 
1 = 11-1 

00 18 K=1,NP 

P(K)=EFPIK,D 

IF (.NOT. CONT) GO TO 18 

Q(K)=EFQ(K,I) 

18 CONTINUE 

IF (.NOT. CONT) GO TO 95 


11 = 11-1 
GO TO 95 


1 = 11-1 


RESTART IS FALSE, READ DATA OSFINING NEH PROBLEM. 

20 REAO (5,1) MPOL 

IF (NPOL ) 900,900,21 

21 REAO (5,2) (CI(I) , Aid) ,1=1, NPOL) 

C CHANGE SIGN OF EXPONENT SINCE ALL SUBROUTINES EXPECT NEGATIVE OF 
C TRUE EXPONENT . 


EIGVM052 
EIGVHQ53 
5) EIG VWC54 
EIGVM055 
EIGVH056 
EIGVH057 
EIS VHQ5 8 
EIGVH059 
EIGVH060 
EIGVW461 
EIGVH062 
EIGVH063 
EIGVH064 
EIGVW065 
EIGVH0 66 
EIGVH067 
EI6VH06 8 
EIG VH 06 9 
EIGVH07 0 
EIGVH071 
EIGVN072 
EIGVH073 
E IG V HO 7 4 
EIGVW075 
EIGVH076 
EIGVH077 
EIG VH078 
) EIGVH079 
EIGVW080 
EIGVH0B1 
E IG VH 08 2 
EIGVH083 
EIGVH084 
EIGVH085 
EIGVH086 
EIGVH087 
EIGVH088 
EIGVHG89 
EIGVH09G 
EIGVW091 
EIGVH092 
EIG VH093 
EIGVH094 
EIGVH095 
EIGVW096 
EIGVH097 
EIGVH098 
EIGVH099 
EIGVH10 0 
EIGVM10 1 
EIGVH102 
EIGVH1B 3 
EIGVH104 
EIGVH105 
EIG VH 10 6 
EIGVH107 
EIGVW10 8 
EIGVH109 
EIGVH110 
EIG VM111 
EIGVH112 
EIGVH113 
EIGVH114 
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00 22 I=1,NP0L 
22 AI ( I)=“AI III 

HEAD (5,3) SH, U,HL 
B=U/2./HL S HI=20./8 
IF (HI.LE.l.) 60 TO 26 


* Bi=SW*U/WL*S0RTT2.l 


SCALE X VALUES TO COVER RANGE OF INTEGRATION* USE EI*EVP*EVQ FOR 
TEMPORARY STORAGE. 

El IS LCWER LIMIT OF POKER LAK SCALING. 


EISVH115 
EIGVH116 
EIGVM117 
EIGVH118 
EIGVMli 9 
EIGVH12 0 
EIGVH121 
EIGVH122 
EIGVH123 


NPHR IS POWER OF SCALING, HIGHER VALUES HILL PLACE MORE X VALUES NEAR EIGVH124 


EIGVW125 
EIGVH126 
EIGVW127 
EIGVH128 
EIGVW12 9 
EIGVW130 
EIGVW131 
EIGVW132 
EIGVM133 
EIGVW134 
EIG VH135 
EIGVH136 
EIGVW137 
EIGVW138 
EIGVW139 
EIGVW140 
EIGVW141 
EIGVW142 
EIGVW143 
EIGVW144 
EIGVW145 
EIGVW146 
EIG VM 14 7 
EIGVH14 8 
EIGVW149 
EIGVH150 
EIG VW151 
EIGVW152 
EIGVH153 

111 WRITE (6,101) I1,SW,U,WL,(CI( J) , AI ( J) ,J=i,NP0L) EIGVW154 

101 FORMAT (1H1,5X,*BEGIN ITERATION FOR EIGENVALUE ANO EIGENFUNCTION NEIGVW155 
10.* ,I2,/,/.6X,*TUR3UL£NCE FAR ANETERS* *,/,6 X , *STD . OEV. =* , F6 .3 ,5X, EIG VW156 
2*MT AS =*, Ffl.3,5X,*SCALE LENGTH =*,F9. 3,/,/ ,6X,*VEHICLE PARA METERS I EIG VW15 7 


ORIGIN. LOk VALUES WILL PROVIDE MORE EVEN DISTRIBUTION OF X VALUES 
OVER RANGE OF INTEGRATION. 

EI=.05 « NPWR=1 

EVQ=((HI-EI)/(l.-EI)-l.)/tl.-EI)**NPWR 
DO 25 1=1, NF 
E VP=X( I) 

IF (EVP. LT .El) GO TO 25 

EVP=EVP-EI t EVP=EVP*(1.+EVQ*EVP**NPWR)*EI 

25 X(I)=EVP 

PUNCH PARAMETERS ON CAROS 

26 WRITE (7,14) 'SW,U, WL 

WRITE (7,11) 3,B1,NP0L,(CI(I),AI(I),I=1,NP0L) 

WRITE (7,12) NP,X(1),X(NP) 

1=0 t 11=1 
90 READ (5,1) KEV 
C0NT=.F. 

95 IF (NEV-I1) 800,100,100 


COMPUTE EXACT SYSTEM RESPONSE VARIANCE 
100 CALL VARW(SH,WL,U,SR2) 

CALL STARAY(LO.LO) 

IF (.NOT.CONT) GO TO 110 
ER0R=ER2(I1) t NSKIP=1 t USEP=.T. 


* GO TO 111 


GENERATE INITIAL GUESS OF EIGENFUNCTION P(ALPHA) 
110 ER0K=ER1(I1) t NSKIP=2 S USEP=.T. 

CALL GUESS ( ID 


3*,/,12X,*COEFFICIENTS*,26X,*POLES*,/, (4X, 2E13. 4 , 8X, 2E13.4 I ) 
WRITE (6,102) SR2 

102 FORMAT (1H0.5X,* SYSTEM RESPONSE VARIANCE =*,E13.6,/,1H0) 

J=1 J £VP=EVQ=EI=OEVQ=l.E5C t GO TO 210 


20 0 


CALL FILL 
EROR=ER2 ( ID 


IF (I.GT.C) EIGENFUNCTION MUST BE ORTHOGONAL TO ALL PREVIOUS FNS 
210 IF (I.LE.O) GO TO 300 
CALL ORTHCG(I) 

COMPUTE NORMALIZATION FACTOR 
300 CALL NORNF(F) 

ESTIMATE EIGENVALUE 

400 EI=EI*F 
IF(USEP) 401,410 

401 OEVP=ABS( l./EVP/F-l.l 
EVP=1./F 


EIGVW15 8 
EIGVW159 
EIGVW160 
EIGVW161 
EIGVW162 
EIGVW163 
EIGVW164 
EIGVW165 
EIGVW166 
EIGVW167 
EIGVH16 8 
EIGVW169 
EIGVW170 
EIGVW171 
EIGVW172 
EIGVW173 
EIGVW174 
EIGVW175 
EIGVW176 
EIGVW177 
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WRITE (6,405) J,EVP,OEVF,EI 

405 FORMAT (1H ,5X, -ITERATION NO.*, 13,*. ESTIMATED P EIGENVALUE IS*, 
1E15.7,*. CCEVP =*,£1Q.3,2X,*EI =* ,E10. 3,* ) * ) 

GO TO 500 

410 0EV0= ABSI1./EVO/F-1.I 
EVQ=1./F 

WRITE (6,415) J,EVQ,0EV0,EI 

415 FORMAT 11H ,5X ,*IT£R AT IC N NO.*, 13,*. ESTIMATED Q EIGENVALUE IS*, 
1E15.7,*. (OEVQ =*,E10.3,2X,*£I =*,E10.3,*>* I 

NORMALIZE EIGENFUNCTION 
500 CALL NOR M IFI 

IF ((J.LT,3C».0R.((J/5)*5.NE.J»> GOTO 520 
WRITE (6,5101 (X(JJ) ,P(JJI ,0(JJ> ,JJ=1,NP» 

510 FORMAT (1H ,3£25.14) 

WRITE (7,511) II 

511 FORMAT (43X.I2I 

WRITE (7,707) (X(JJ) ,P(JJ1 ,Q(JJ) , JJ=1,NP» 


IF 0EV IS SUFFICIENTLY SHALL, ACCEPT EIGENFUNCTION 
52C IF ( (OEVP.LE .EROR) .ANO.(OEVQ.LE.EROR) .AND. (EI.LE.ERI) ) 
IF ((J.GE.25). ANO. (NSKIP.NE.l)) GO TO 200 


GO TO 700 


EIGENFUNCTION NOT YET 
600 CALL ITERAT (El) 
J=J*1 
GO TO 210 


ERROR IS BELOW TOLERANCE, 
70 p IF (NSKIP.NE.l) GO TO 
C ACCEPT EIGENFUNCTIONS 
1 = 1*1 S 11 = 1*1 
OEVP=ABS(EVP-EVQ) t 


FOUND, CONTINUE ITERATION PROCESS 


CHECK 

200 


TO SEE THAT MAX. NO. OF POINTS USED 


0EVQ=(EVP*EVQ)/2. * OEVP=OEVP/DEVQ 


FS=0EVQ**2/SR2 t TFS=0. 


EIGVH178 
EIGVW179 
EIGVWiSQ 
EIG VH101 
EIGVW182 
EIGVW183 
EIGVW184 
EIGVH1S5 
EIGVW186 
EIGVW1S 7 
EIGVW188 
EIGVH189 
EIGVW190 
EIGVH191 
EIGVH192 
EIGVW193 
EIGVW194 
EIGVW195 
EIGVW196 
EIGVW19 7 
EIGVW198 
E IGVW199 
EIGVW200 
EIGVW201 
EIGVH20 2 
EIGVW203 
EIGVH204 
EIGVH205 
EIG VW206 
EIGVW207 
EIGVW208 
EIGVH20 9 
EIGVM210 
EIGVW211 
EIGVW212 
EIGVW213 
EIGVW214 
EIGVW215 
EIGVH216 
EIGVW217 


E(II=OEVa * 

DO 702 J*1,I 

702 TFS=TFS*E(J)**2 t TFS=TFS/SR2 
WRITE (7,706) I.DEVQ 

7P6 FORMAT (-EIGENVALUE ANO CONJUGATE EIGENFUNCTIONS NO.*, 12, E20 . 11) 

WRITE (7,707) ( X ( J) ,P ( J) , 0 ( J) , J= 1, NPI 

707 FORMAT (3E25.14) 

WRITE (6,708) I , Oc VO, t VP , E VO, OE VP, FS, I ,TFS , ( X( J) ,P( J) , 0(J> , J=1 , NP) E IG VH21 8 

708 FORMAT ( 1 HI ,5X, -EIGENVALUE NO.*, 12,- IS* , E 14 .7 ,/ , 6X , -EVP =* , El 4. 7 , EIG VW21 9 

1* EVO =* ,E14. 7 ,* RELATIVE DIFFERENCE =*, El 0 . 3 ,/ ,/ , 6X , *F R A CT ION OEIGVW220 
2F RESPONSE VARIANCE OUE TO THIS EIGENVALUE IS* ,F7 . 5 ,/ ,6X, EIGVW221 

3-FRACTICN OF RESPONSE VARIANCE OUE TO FIRST-,12,* EIGENVALUES IS*,EIGVW222 
4F7. 5, /,/,5X,»X»,8X, -FUNCTION OF 1ST ARG* , 3 X , *F UNC T ION OF 2NO ARG-, E IG VW223 
57,(6X,F8.4,5X,E17.10,5X,E17.10)I EIGVW224 

IF (I.GE.NEV) GO TO 800 EIGVW225 

CALL ST OR ( I) EIGVH226 

CONT=.F. EIGVW227 

GO TO 110 EIGVW228 

EIGVW22 9 

800 WRITE (6,805) NEV, ( J, E ( J) , J=1 , I) EIGVW230 

805 FORMAT ( 1H1 ,5X ,*F IRST* , 12, * EIGENVALUES ARE**,/ , ( 10X, 12, 2X, E15 . 7) ) E IGVW23 t 


01 C 


812 
90 0 


FS=SR2*C1.-TFS) 

WRITE (6,010 FS, TFS 

FORMAT (1M0 ,5X, -REMAINING EIGENVALUES SQUARED SUM 
1-THE ABOVE EIGENVALUES ACCOUNT FOR*,F7.5,* OF THE 
IF (FS.LT.O.) GO TO 900 
FS=SQRT(FSI 
WRITE (6,012) FS 

FORMAT ( 1H ,5X, -LARGEST POSSIBLE REMAINING EIGENVALUE 
STOP $ END 


TO-,E15.7,/,6X, 
RESPONSE VAR.*) 


IS*, E 14.7) 


EIGVH232 
EIGVW233 
EIGVW234 
EIGVH235 
EIGVW236 
EIGVW237 
EIGVW230 
E IGVM239 
EIGVH240 
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SUBROUTINE WARM (SH,HL,U,S2» 


A SUBROUTINE 
SUBJECTED TC 


TO COMPUTE THE RESPONSE VARIANCE OF A LINEAR SYSTEM 
RANDOM INPUT WITH ORYOEN H-GUST SPECTRUM 


SW = TURBULENCE STANOARO DEVIATION 
WL = TURBULENCE SCALE LENGTH 
U = VEHICLE MEAN TRUE AIRSPEED 
AI = NEGATIVE OF VEHICLE IMPULSE RESPONSE 
Cl = VEHICLE IMPULSE RESPONSE CONSTANTS 
IF Cl CR AI IS COMPLEX, ONLY ONE OF EACH 


EXPONENTS CPOSITIVE REAL 
CONJUGATE PAIR IS TO BE 


10 


20 


COMMON /CCNST/ Cl (5) , AI 15) .NPOL 
COMPLEX CI,AI,AJ, AK,CJ,CK,C2,C3,C4 ,Di,D2 
LOGICAL RL1 »RL2 
OU/HL t S2=0 • 

DO 20 K=1 , NPOL 

AK=AHK) I CK=CI<K> t C4=0. 
RL1=AIMAG(AK).EQ.O..ANO. AIMAG(CK) .EQ.O. 

01=0- AK 

00 10 J=1 , NPOL 

AJ=AI(JI f CJ=CIfJ) * C3=0. 
RL2=AIMAG(AJ).EQ.O..ANO. AIM AG <CJ) .EQ. 0 . 

02=C- AJ 

C2= (C*(C* I AK-AJI/2. 1/01/02-1. )/Dl/D2 
C2=C2*C*(C**2-3.*AJ**2)/(AK + AJ)/(AJ«-C)**2/C AJ-CI**2 
C2=C2*CJ*CK t C3=C3*C2 t IF (RL2I GO TO 10 
A J=CONJG ( A J) t C J=CONJG( C J) S RL2=.T. S GO TO 

C4=C4*C3 

IF (RL1 ) GO TO 20 

AK=CONJGCAKI S CK=CONJGCCK> S RL1=.T. S GO TO 

S2=S2+REAL<C4I t S2=S2*SH**2 S RETURN t ENO 
SUBROUTINE FILL 


THIS SUBROUTINE INTERPOLATES THE 21 POINT EIGENFUNCTION TO FORM THE 
FIRST APPROXIMATION TO THE 41 POINT EIGENFUNCTION. 

COMMON /ARRAYS/ X (45 ) , P ( 45 ) , Q f 45 I , I, II, K, XP, Cl 41) , NP, NSKIP 

I1=NSKIP/2H 

00 10 1=11, NP, NSKIP 

xp=xii> t k=i*i-ii 
CALL COEF (K ,P, C) 

p(i)3(tc («.>■• xp*cm»*xp«-ci 2 i »*xp»xci» 

CALL COEF(K,0,C» 

10 Q(I)s( (C(4)*XP»C<3))*XP»C(2H*XP»C(1) 

NSKIP=NSKIP/2 
RETURN S ENO 
SUBROUTINE GUESSCII 


THIS SUBROUTINE GUESSES THE NEXT EIGENFUNCTION TO 
DERIVATIVE CF THE PROVIOUS RESULT OR X*EXP(-3.*XI 


BE THE 
FOR THE 


FIRST. 


10 


5C 


COMMON /ARRAYS/ XC45) ,P(45> ,0145) ,J,XJ,K,DX,CP,DUHI40 > ,NP, NSKIP 
IF (NSKIP.LE.il GO TO 70 
IF (I.GT.l) GO TO 50 
00 1C J=1,NF, NSKIP 
0(JI=0. $ XJ=X(J» 

P( J)=XJ*EXP(-3.*XJI 
RETURN 


K=NSKIP*1 

00 BO J=K,NP, NSKIP 
Q(J)=0. I DP=P( Jl-P( J-ll 


3 DX=X(J> -X( J-i) S XJ=X(J> 


E IGVW24 1 
EIG VM2<» 2 
EIGVW243 
EIGVW244 
EIGVH245 
EIG VN246 
EIGVH247 
EIGVH248 
PTIEIGVK249 
EIGVH250 
USEOEIG VN25 1 
EIGVH252 
EIGVH253 
EIG VW254 
EIGVH255 
EIGVW256 
EIG VH25 7 
EIGVHZ58 
EIGVH259 
EIGVH26 0 
EIGVH261 
EIGVH262 
EIGVH263 
EIGVH264 
EIGVH265 
EIGVH266 
£ IG VH267 
EIGVH268 
EIGVM269 
EIGVH270 
EIGVM271 
EIGVH272 
EIG VH273 
EIG VH274 
EIGVH275 
EIGVH276 
EIGVH277 
EIG VH27 8 
EIGVH27 9 
EIGVH28 0 
EIGVH281 
EIGVH282 
EIGVH283 
EIG VH284 
EIGVH285 
EIGVH286 
EIGVH287 
EIGVH2S8 
EIGVM289 
EIG VH290 
EIGVH291 
EIGVH292 
EIGVW293 
EIGVH294 
EIGVH295 
EIGVH296 
EIGVH297 
EIGVH298 
EIG VW299 
EIGVW300 
EIGVW301 
EIGVW3Q2 
EIGVH303 
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XJ=XJ*EXPC-3.*XJI 
60 PC J)=XJ*DP/0X 
RETURN 

70 WRITE C6, 71) NSKIP 

71 FORMAT UH ,5X,*NSKIP =*,I10,*NOT ALLOWED IN GUESS*! 
STOP * END 

SUBROUTINE NORNFCFI 


EIGVW30 4 
EIG VW30 5 
1 EIGVW306 
EIGVH307 
EIGVW30 3 
EIGVM30 9 
EIG VW310 
EIGVW311 

COMPUTES NORM OF PCX! OR QCX) OEPENOING UPON USEP TRUE OR FALSE EIGVW312 

THE NORM OF P OR Q IS THE ESTIMATEO EV., THE INVERSE IS THE NORH. FAC.EIGVH313 

EIGVW314 

COMMON /ARRAYS/ X C45 ) , P l 45 1 , Q (45 1 ,C<4 ) , FI, NP1, J, I , XI, XZ, II » CII , 
1IJ,K,CK,X12,XZ2, JJ,0UNCZ7) ,NP, NSKIP, NPOLY, USEP 
LOGICAL USEF 

J*NP-t 


F 1=0. t NPt=NPOLYH t 
00 60 1=1, J, NSKIP 
F = 0. 

IF C USEP) 10,11 

10 CALL COEF (I,P,C) 

GO TO 1Z 

11 CALI C0EF!I,Q,CI 

12 X1=XCI) t XZ=X Cl » NSKIP) 

IF (XZ.GT.XCNP1) X2=XINPI 
00 *.0 11=1, NPOLY 
CII=CCII> I IJ=IIH S 
X12=X1**K 1 X 22=X2**K 

00 AO JJ=IJ,NP1 
F = F«-CII*CCJJ)*CXZ2-X1Z)/CK 
CK=CK*i. S X12=X12*X1 

AO XZZ=X22*XZ 

F=F*2. ( X1Z=X1**Z * X22=X2**Z 

00 50 11=1, NP1 

F=F*CX2-X1)*CCCII) **Z)/CK $ CK=CK*Z • 

50 X1=X1*X12 
F1=F1+F 
F=S0RTC1./F1! 

RETURN 


K=II*IJ-1 t CK=FLOAT»K» 


* CK=1. 


X2=XZ*XZ2 


60 


NORMALISE EIGENFUNCTION P OR Q OEPENOING UPON USEP TRUE OR FALSE. 
ENTRY NCRN 
00 IOC 1=1, NP, NSKIP 
IF (USEF) 95,96 

95 P II l=P f I) *F 
GO TO 100 

96 0 1 1 >=QI I! *F 
100 CONTINUE 

RETURN t ENO 
SUBROUTINE ORTHOGC II 


EIGVW315 
EIGVW31 6 
EIGVW317 
EIGVH31 3 
EIG VW319 
EIGVH32 0 
EIGVW321 
EIGVW322 
EIGVH3Z 3 
EIGVH3Z A 
EIG VW325 
EIGVW3Z6 
EIGVH327 
EIG VH32 3 
EIGVW3Z9 
EIGVW330 
EIGVH33 1 
EIGVW332 
EIGVW333 
EIGVH33A 
EIGVW335 
EIGVW336 
EIGVW337 
EIGVW33 3 
EIGVH33 9 
EIGVH3A0 
EIG VM3A1 
EIGVW3A 2 
EIGVW3A3 
EIGVW3AA 
EIGVW3A5 
EIGVW3A6 
EIGVW3A7 
EIGVH3A3 
EIGVW3A9 
EIGVW350 
EIGVW351 


EIG VW352 

A SUBROUTINE TO ORTHOGONAL IZE PCX) OR QCX) WITH RESPECT TO THE FIRST IEIGVW353 
EIGENFUNCTIONS CEPENDING UPON USEP TRUE OR FALSE. EIGVW35A 

EIGVW355 

CGMMON /ARRAYS/ XCA5!,PCA5> , Q C-A5) , BUM C A5) , NP,NS KIP , NPOLY, USEP, EIGVW356 
1EFP 145,51 ,EF0CA5,5> ,CCA) ,014) EIGVW357 

LOGICAL USEP EIGVW353 

NP1 = NFOLY»l EIGVW35 9 

00 50 J=1,I EIGVH360 

00 10 JJ=1,NP, NSKIP EIGVH361 

IF CUSEP) 5,6 EIGVH362 

5 OUMCJJ)=EFPCJJ,JI EIGVW363 

GO TO 10 EIGVH364 

6 OUM C JJ)=EFQCJJ,J! EIGVW365 

10 CONTINUE EIGVH366 


I 
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20 

21 

22 


40 


45 

46 
50 


K=NP-1 t F=0. 

00 40 JJ=1,K,N$KIP 
IF (USEP) 20,21 
CALL COEF ( JU»P,C) 

GO TO 22 

CALL C0EFtJJ,0,C) 

CALL COEF ( JJ,0UM,0) 

X1=XIJJ) * II=JJ*NSKIP * IF UI.GT.NPI II=HP t X2=XUI) 
DO 40 11=1, KP1 

X12=X1**II { X22=X2**II S CII=CIII> t CL=FL0AT III) 

DO 40 KK=1,KP1 

F=F*CII*0(KKI*(X22-X12»/CL f CL=CL*1. * X12=X12*X1 

X22 = X22*X2 

00 50 JJ=1,NP,NSKIP 

IF IUSEP) 45,46 

Pt JJ)=PI JJ)-F*DUHCJJI 

GO TO 50 

Q(JJ>=CU JJ)-F*DUMIJJ) 

CONTINUE 
RETURN t END 
FUNCTION SUN (I , J) 


FORMS PRODUCT < J-I*l> * CJ-I+2) ...... CJ) 


N=1 

IF ( II 20,20,10 
10 K=J-I*1 

00 15 L=K, J 
15 N=N*L 
20 SUM=FL0AT INI 
RETURN % END 
SUBROUTINE COEFtl.A.C) 

A SUBROUTINE TO FILL C ARRAY WITH THE COEFFICIENTS OF THE 
POLYNOMIAL REPRESENTING ACXI BETWEEN XU) AND XtI*NSKlPI. NPOLY IS 

the order of the polynomial 

POLYNOMIAL IS C<il * CUJ*X ♦ C(3)*X**2 • C14)*X**3 
DIMENSION A ID ,C(1) 

COMFON /ARRAYS/ X 1 451 ,P <451 , 0 »45) ,OUH 145) , NP,NS KIP, NPOLY 
OATA NPOLY/3/ 

IF II.GT.NSKIP) GO TO 10 
N=1 t GO TO 30 

10 IF <I.LE.NP-2*NSKIP) GO TO 20 
N=NP-3*NSKIF S GO TO 30 
20 N=I— NSKIP 

30 Fl= At N) 1 X1=X I N) S N=N»NSKIP ( F2=A<N) $ X2=XIN) 

N=N*NSKIP t F3= A ( N) t X3=X«N) 

N=N*NSKIP J F4=A(N) t X4=XIN) 

Fl=Fl/tXl-X2)/CXl-X3)/IXi-X4) 

F2=F2/(X2-X1)/ IX2-X3)/f X2-X4) 

F3=F3/CX3-X1)/(X3-X2)/IX3-X4I 
F4=F4/ <X4-Xl)/CX4-X2)/fX4-X3) 

C<4I=F1*F2+F3+F4 

Cf 3)=-Fl* (X2*X3*X4)-F2*IX1*X3*X4)-F3* «X1+X2*X4)-F4MX1*X2*X3) 
C(2)=F1*IX2*(X3*X4) «• X3* X4) *F2* J X1M X3 *X4I * X3*X4) *F3* « Xl*« X2*X4) * 
1X2*X4) + F4M X1*(X2*X3) *X2*X3) 
C(1)=-F1*X2*X3»X4-F2*X1*X3*X4-F3*X1*X2*X4-F4*X1*X2*X3 
RETURN t END 
SUBROUTINE CIFC 

INTEGRATE COMPLEX TERMS OF TRANSFER FUNCTION 

EQUIVALENCE <E,ER) , <Xc, XER ) , ( XE1 , XE1R) , t01,DiRl 
COMKON /OIF/ X , E, N ,01 


EIGVW367 
EIGVW368 
EIGVW369 
EIGVW37 0 
EIGVM371 
EIGVW372 
EIGVH373 
EIGVH37 4 
EIGVW375 
EIGVW376 
EIGVH377 
EIGVW378 
EIGVW379 
EIGVW380 
EIGVW381 
EIGVW382 
EIGVH383 
EIGVW384 
EIGVW385 
EIGVH386 
EIG VW387 
EIGVH38 8 
EIGVH38 9 
EIGVM390 
EIGVW391 
EIGVW392 
EIGVH393 
EIGVW394 
EIGVW395 
EIGVW396 
EIGVW397 
EIGVH398 
EIGVW399 
EIGVW400 
EIGVW401 
EIGVW402 
EIGVM403 
EIG VW404 
EIGVW40 5 
EIGVW406 
EIGVW40 7 
EIGVW40 8 
EIGVH409 
EIGVW410 
EIG VW411 
EIGVW412 
EIGVW413 
EIGVW414 
EIGVH415 
EIGVW416 
EIGVW417 
EIGVW418 
EIGVW41 9 
EIGVW420 
EIGVH421 
EIGVW422 
EIGVH423 
EIGVH424 
EIGVW425 
£ IGVW42 6 
EIGVW427 
EIGVW42 8 
EIG VH42 9 
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211 


* Sl=l. t S2=FL0ATCN> 

X£=XE*XE1 S S1=S1*S2 S S2=S2-1. 


COMPLEX E,XE,XE1,01 
N1=N41 * 01=0. 

IF IN) 70.10.24 

CONSTANT TERM OF POLYNOMIAL 
10 01=1. 4 GC TO 30 

POHER TERM CF POLYNOMIAL 
20 IF (X.NE.O. » GO TO 25 
01=I-1./EI**N*SUM«N,N» 

GO TO 30 
25 XN=X**N 

XE1=X*E I XE=1. 

00 20 1=1, N1 
D1=XN/XE*S1401 S 
28 XN=-XN 
30 Cl=01*CEXP(E*X)/£ 

70 RETURN 

INTEGRATE REAL TERMS OF TRANSFER FUNCTION 
ENTRY OIFR 
N1=N*1 S 01=0. 

IF INI 170,110,120 

CONSTANT TERM OF POLYNOMIAL 

110 01R=1. t GO TO 130 


POHER TERM CF PCLYNOMIAL 
120 IF (X.NE.O. I GO TO 125 
D1R=(-1./ERI**N*SUH(N,N» 

GO TO 130 
125 XN=X**N 

XE1R=X*ER I XER*1. t 
OO 128 1=1, N1 

DlR=XN/XEfi*Sl«-01R t XER=XER*XE1R 
128 XN=-XN 

130 01=CMPLX(Dlfi*EXP«ER*XI/ER,0.0» 

170 RETURN S ENO 

SUBROUTINE NTGRAL CV.XABJ 


Sl=l. f S2=FL0AT { N) 


* S1=S1*S2 * S2=S2-1. 


INTEGRATES P ( XI *M ( X ,X ABI OR Q ( X I *H ( X AB ,X) DEPENDING UPON USEP TRUE 
OR FALSE. 


EIGVH430 
EIGVW43 1 
EIGVW432 
EIGVW433 
EIGVH434 
EIG VH435 
EIGVH436 
EIGVW437 
EIGVH43 8 
EIGVH439 
EIG VU440 
EIGVH44 1 
EIGVH442 
EIGVH443 
EIGVH444 
EIGVW445 
EIGVH446 
EIG VH447 
EIGVH44 8 
EIGVH44 9 
EIGVH450 
EIGVW451 
EIG VH452 
EIGVH453 
EIG VW454 
EIGVW455 
EIGVH456 
EIGVH457 
EIGVH458 
EIGVH459 
EIGVH46 0 
EIGVH461 
EIG VH462 
EIGVH463 
EIGVH464 
EIGVH465 
EIGVH466 
EIGVW46/ 
EIGVH468 
EIGVH469 
EIGVH470 
EIGVH47 1 


EIGVH472 

COMMON /ARRAYS/ X (45 1 , P ( 45 ) , 0 (45 1 ,E1 , E2 , Cl ,C2,C02,C03 ,C04 , C06 , IPOL EIG VH47 3 
1 ,NX ,NP0,NF01 ,IA,ICA,D1S (4) ,02S(4> ,D1S1(4) ,D1S2(4) ,NP,NSKIP, NPOLY , EIGVH474 
2USEF,EFP(45CI,C(41 EIGVH475 

COMMON /CCNST/ Cl ( 5) , A I ( 5) , NPOL , B , 91 EIGVH476 

COMMON /OIF/ X1,E,NP0M,01C EIGVH477 

OIMENSICN 01A(225> ,D1CA(9C0) ,CA(180) EIGVH47 8 

COMPLEX 0 1C A , A I ,CI ,E ,C1 , C2 , VI , V2 ,£2,01C, OlSi ,01S2 , COl ,C02 , C03, EIGVH479 

1C 04 ,C05 ,CC6 ,01C1, 01C2 EIGVH480 

LOGICAL RL.USEP EIGVH481 

EQUIVALENCE (E.ERI ,(01,02,010 , (C01.C02I ,(C04,C05» , (01C1,D1C2» EIGVH482 
V=0. * £1=EXP(-8*XAB» t ICA=0 EIGVH483 

EIGVH484 

CYCLE THROUGH PCLES OF TRANSFER FUNCTION EIGVW485 

00 100 IPCL=l,NPOL EIGVH486 

E2=CEXP(-XAE*{AI(IP0L)-BI) S Cl= 91*CI (IPOL) / ( A I ( IPOLI-2. * B> EIGVH487 

C2=C1*B I C1=C1* (AI(IP0L)-B)/(AI(IPOU-2.*B) t C03=C2*E1 EIGVH488 

IF (USEPI 5,6 EIGVH489 

5 C01= (C1-XAB*C2I*E1 * C05=C1*E2 t GO TO 7 EIGVW490 

6 C02=(C1*XA8*C2)*E2 S C04=C2ME2-E1> S C06=C1*E1 EIGVH491 

7 V1=0. » V2=0. t IA=i S ICA=ICA» 1 EIGVH492 
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CYCLE THROUGH X INTERVALS 
00 15 NP0=1, NP01 
D1S (NPO) = 01A(IA) S I A=IA*1 S D1S1 (NP0» =01CA IICA) t ICA= 
IF IUSEP) 12,13 

12 01S2INPO>=01CA(ICA) 

GO TO 15 

13 02S(NP0>=01A<IA> 

15 CONTINUE 
I=NSKIP*1 1 NXI=1 
00 BO NX=I»f>P»NSKIP 

X1=XINX) f I A=IA + IINC 8 ICA=ICA*IINC 

CYCLE THROUGH TERMS OF POLYNOMIAL 
IF (USEPI 16,25 

COMPUTE NEW Q (8ETA) EIGENFUNCTION 

16 00 20 NP0=1,NP01 

01=01AIIA> f IA=IA*1 S E=01-01S (NPO ) S V1=C01*E 
01S INPO 1=01 
IF IXl-XAB) 17,17,18 

17 01C1=01CAIICA> 

ICA=ICA*i t E=D1C1-01S1 INPO) * Vl=Vi-COi*E t DlSUNPO)- 
01C2=01CAIICA» t £=01C2-D1S2INP0) t V1=V1-CC3*E 
D1S2INPC)=01C2 
GO TO 19 

18 tfl=Vl-C05*£ 

ICA=ICA*1 

19 V2=V2*V1*CAINXI) 

20 NXI=NXI*1 
GO TO 60 

COMPUTE NEW PIALPHA) EIGENFUNCTION 
25 00 40 NPO=1,NP01 

D1-01A ( I A) t IA=IA*1 t E=01-D1SINP0> * V1=C06*E 

30 01SINPO)=01 

IF IX1-XAB) 31,31,38 

31 D1C1=01CAIICA) 

ICA=ICA*1 I E=01C1-01S1INP0I S V1=V1-C06*E 
35 01S1INPO) =Q1C1 

02=01 A 1 1 Al 1 E=02-02S INPOI $ Vi=Vl-C03*E S D2SINPOI=D2 

GO TO 39 

38 V1=V1-C02*E 

02=01 A ( I A) l E=02-02S INPO) S V1=V1+C04*E S 02SINPO)=D2 

ICA=ICA*1 

39 V2=V2*V1*CA INXII 

40 NXI=NXI*1 
80 CONTINUE 

. IF l(AIMAG(Cl).EQ.O.).ANO.(AIMAG(E2).EQ.O.n GO TO 100 
V2=2.*REALIV2» 

100 V=V*V2 

GO TO 500 


SET UP 01 A ANO C1CA ARRAYS 
ENTRY STARAY 
NF01=NPCLY*2 * ER=-9 

00 200 NX=1,NP 
X1=X INXI 

00 20C NP0=1 ,NP01 
NPON=NPO-1 t CALL OIFR 
200 1 = 1*1 * 1=1 

00 300 IPQL=1» NPOL 


* 1 = 1 


$ D1A I I)=01 


EIGVW493 
EIGVW494 
EIGVW495 
ICA+1EIGVW496 
EIGVW497 
EIG VH498 
EIGVW499 
EIGVW500 
EIGVW50 1 
EIGVW502 
EIGVW503 
EIGVW504 
EIGVW505 
EIGVW506 
EIG YW50 7 
EIGVW508 
EIGVW50 9 
EIGVW510 
EIGVW511 
EIGVW512 
EIGVW513 
EIGVW514 
01C1 EIGVW515 
EIGVW516 
EIGVW517 
EIGVM518 
EIG VW51 9 
EIGVW52 0 
EIGVW52 1 
EIG VW522 
EIGVW52 3 
EIGVH524 
EIGVW525 
EIGVW526 
EIGVW527 
EIGVH52 8 
EIGVW529 
EIGVW530 
EIGVH53 1 
EIGVW532 
EIGVW533 
EIGVW534 
EIGVW535 
EIGVW536 
EIG VW537 
EIGVW538 
EIG VW539 
EIGVW540 
EIGVW541 
EIGVW542 
EIGVW543 
EIGVH544 
EIGVW545 
EIGVM546 
EIGVW547 
EIGVW548 
EIGVW549 
EIGVW550 
EIGVW55 1 
EIG VW552 
EIGVW553 
EIGVH554 
EIGVW555 


tifton oooo 
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E*B-AI(IPCL) « RL=AI MAG(E) • EQ. 0, 

00 300 N X= 1 , NP 

X1=X*NX) 

00 300 NPQ=1 »NP01 
NF0M=NP0-1 * IF I RL> GO TO 250 
CALL OIFC 
GO TO 290 
250 CALL OIFR 
290 01CAII)=01C 
300 1=1*1 

GO TO 500 


GENERATE T ABLE CF POLYNOMIAL COEFFICIENTS, CA, FOR EIGENFUNCTION P OR 
0 OEPENCING UFON USEP TRUE OR FALSE 
ENTRY GENCOE 
NPO=0 

00 *.00 NX 1=1, NP, NS KIP 
IF INXI-NP) 353,400,400 
350 IF (USEPl 360,370 
360 CALL COEF (NXI,P,C> 

GO TO 375 

370 CALL COEFCNXI,Q,CI 
375 00 380 NP0t=l,4 
NPO=NPO»l 

380 CAT NPOI =C (NPOll 
400 CONTINUE 

NF01=NPCLY»1 

IINC= f NSK IP* II * INPOLY* 2) *1 
500 RETURN S END 

SUBROUTINE HERAT C£l 

A SUBROUTINE TO ITERATE THE EIFENFUNCTION PtX) OR QtX) DEPEICING 
UPON USEP TRUE CR FALSE. 

COMMON /ARRAYS/ X I 45 1 , P ( 451 ,0 «45» ,OUM 145) , NP ,NS KIP, NPOLY,USEP 
CCMMON /EVAL/ EVP,EVQ 
EQUIVALENCE CPI,QI» 

LOGICAL USEP 
CALL GENCOE (Q, X ) 

Q I 1 ) =0 . I P(11=0. * E=0. S I1=NSKIP*1 

00 50 1=11, NP, NSKIP 
IF (USEFI 30,40 
30 QI=QI I) *EVQ 

CALL NTGRAL(0(I),X(II) 

E=E*(ABS10I)-A9SCQCI>) 1**2 
GO TO 50 
4C PI=P(U*EVP 

CALL NTGRAL(Pm,XII»» 

E=E*f ABStPI)-A3S(PII>> »**2 
50 CONTINUE 

E=SCRT IE1/FL0AT CNPI 
USEP=. NOT. USEP 
RETURN t ENO 
SUBROUTINE ST0RII1 

STORES ITH EIGENFUNCTION 

PCX) IN EFPIX,I), QIX) IN EFQtX,II 

COMMON /ARRAYS/ X 1 45) , P I 451 ,Q ( 45 > , J,DUH <44 ) , NP , NS KIP, NPOL Y , USEP, 
1EFP <45 ,5 ) »EFQ (45,5) 

00 10 J=1 ,NP 
EFP ( J, I ) *P ( J) 

10 EFQ I J, II = Q( J) 


EIGVH556 
EIGVH557 
EIGVW558 
EIGVH5S9 
EIGVM560 
EIGVH561 
EIGVW562 
EIGVH563 
EIGVH564 
EIGVH565 
EIGVH566 
EIGVW567 
EIGVH56 8 
EIG VH56 9 
EIGVH570 
EIGVH57 1 
EIGVM572 
EIGVH573 
EIGVH574 
EIGVW575 
EIGVU576 
EIGVH577 
EIGVH57 8 
EIGVW579 
EIG VHS80 
EIGVH581 
EIGVU582 
EIGVH583 
EIGVW584 
EIGVH585 
EIGVH586 
EIGVM587 
EIGVH588 
EIG VH589 
EIGVM590 
EIG VH591 
EIGVH592 
EIGVH593 
EIGVH594 
EIGVH595 
EIGVH596 
EIGVH597 
EIGVH598 
EIGVH599 
EIGVH600 
EIG VM601 
EIGVH632 
EIGVH603 
EIGVH604 
EIGVH605 
EIGVH606 
EIGVN607 
EIGVW6Q 8 
EIGVH609 
EIGVM610 
EIG VH61 1 
EIGVH612 
EIGVH613 
EIGVH614 
EIG VH615 
EIGVH616 
EIG VH617 
EIGVH61 8 



RETURN t 


END 


EIGVH619 



SUBROUTINE FFT ( A , M, INV,S, IFSET, IFERRI 


FFT 00001 

c 




FFT 0000 2 

C FAST FOURIER TRANSFORM FOR 

COMPLEX FUNCTIONS OF UP 

TO THREE DIME NS IONS FFT 0000 3 

C WRITTEN BY DUANE HAROER, FEB. 1969 


FFT 00004 

C AVAILABLE THROUGH VIM INC. 

(COC USER ORGANIZATION) 


FFT 0000 5 

C 




FFT00006 


DIMENSION A(1),INV<1), 

Sll) ,N(3) ,M(3),NP(3) , WC2) 

,W2C2I ,W3C2I 

FFT 000 0 7 


EQUIVALENCE (N1,NC1)», 

<N2,N(2)), (N3,N (3) ) 


FFTO0 00 8 

10 

IF II ABS I IFSET) -1) 610 

,610,20 


FFT 00009 

20 

MTT=MAX0 (MCl),M(2l,M<3))-2 


F FT 0 0 0 1 0 


ROOT 2= SORT 12.) 



F FT 0 0 0 1 1 


IF IMTT-MT) 40,40,30 



FFT 00 01 2 

30 

IFEKR=1 



FFT 00013 


RETURN 



FFT00014 

40 

IF£RR=0 



FFT 0001 5 


H1=M1) 



FFT00016 


K2=FC2I 



FFT 00017 


M3=tf 13) 



FFT 00 018 


Ni=2**Hl 



FFT 00 01 9 


N2=2**M2 



FFT00020 


N3=2«*M3 



FFT 00021 


IF IIFSET) 50,50,70 



FFT00022 

50 

NX=N1*N2*N3 



F FT 0 0 0 2 3 


FN=NX 



FFT00024 


00 60 1=1, NX 



FFT 0002 5 


A(2*I-1)=A(2*I-1)/FN 



F FT 0 0 0 2 6 

60 

A(2*I)=-A(2»I)/FN 



FFTOO 02 7 

70 

NP 1 1)=N1*2 



FFTC0G28 


NP 1 2 )=NP (1 ) *N2 



FFTOO 02 9 


NP|3)=NP(2)-*N3 



FFT 00030 


00 330 10=1,3 



FFT 00 031 


IL=NPI3)-KPIIO) 



F FT 0 0 0 3 2 


IL1=ILH 



FFT 00033 


MI=M| ID) 



FFT 00034 


IF IHI) 330,330,80 



FFT0003 5 

80 

IOIF=NP(IO) 



F FT 0 0 C 3 6 


K8IT=NPII0) 



F FT 0 0 0 3 7 


MEV=2* ( MI/2 ) 



FFT 000 3 8 


IF (HI-NEY) 120,120,90 



FFT0003 9 

90 

K9IT=KBIT/2 



FFT 0004 0 


KL=KBIT-2 



FFTOO 04 1 


DO 100 1 = 1 , IL1, IDIF 



FFT 000 4 2 


KLAST=KLM 



FFTOO 043 


00 100 K=I,KLAST, 2 



FFT00044 


KO=K*KBIT 



FFT 00 04 5 


T= A I KD ) 



F FT 0 0 0 4 6 


AlKO)=AlK)-T 



FFT 00 047 


AIK)=A(K)+T 



FFT 0004 8 


T=A(K0»-1J 



FFT 00049 


A(KOM) = A(K+l)-T 



FFT 00050 

100 

AfK*l) = A(K*l)«-T 



FFT00C51 


IF (MI-1) 330,330,110 



FFTOO 05 2 

110 

LFIFST=3 



F FT 0 0 0 5 3 


JLAST=1 



FFT 00054 


GO TO 130 



FFTOO 05 5 

120 

LFIRST=2 



FFT00056 


JLAST=0 



FFT00Q57 

130 

00 320 L=LFIRST ,MI,2 



FFT 0005 8 
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JJOIF=KBIT 

FFT0005 9 


KBIT=KBIT/4 

FFT00060 


KL=K9IT-2 

FFT0006 1 


00 140 1=1 » IL1 » IOIF 

F FT 0 0 0 6 2 


KLAST=I«KL 

FFT00063 


00 140 K=I» KLAST ,2 

FFT00064 


K1=K«-K9IT 

FFT40065 


K2=KH-KBIT 

FFT00066 


K3=K2*KBIT 

FFT00C67 


T= A (K2) 

FFT00068 


Al K2I = A f Kl “T 

FFT00069 


A( K)=A f K) t-T 

FFTQ0Q7Q 


T=A<K2*i» 

FFT00071 


AIK2*1I=AIK*1»-T 

FFTOOO/2 


ACK*1»*ACK*1»*T 

FFT00073 


T=A1K3I 

FFT 00 07 4 


A<K3)=AIK1)-T 

FFT 00075 


A ( Kll = A ( Kl) *T 

FFT00076 


T=AtK3*l» 

FFT 00077 


Af K3+1)*A»K1*1I-T 

FFT00078 


A»K1«-1) = AIK1«-1»*T 

FFT00079 


T= A CK11 

FFT 000 8 0 


A l K 1 > = A ( Kl -T 

FFT00U81 


A(K)=A(K>+T 

FFT 00082 


T=ACK1«-1» 

FFT00083 


ACK1«-1» = AIK*1I-T 

FFT 00084 


A I K*l) = A f K*ll *T 

FFT 000 85 


R=-A(K3*1I 

FFT 00 086 


T=A(K3) 

FFT 00087 


A«K3I=AIKZ»-R 

FFT00088 


A f K21 =A (K2I »R 

FFT 00089 


AIK3*1I = ACK2HI-T 

FFTO0090 

140 

A(K2+1) S AIK2*1I*T 

FFT00091 


IF ( JL AST ) 310,310,150 

FFT 00 092 

150 

JJsJJOIFi-1 

FFTD0093 


ILAST=IL*JJ 

FFT 000 94 


00 160 I=JJ,ILAST , IOIF 

FFT 00095 


KLAST=KLH 

FFT00096 


00 160 K= I, KLAST ,2 

FFT 000 9 7 


K1=K*KBIT 

FFT 00 09 8 


K2=K1»KEIT 

F FT 0 0 0 9 9 


K3=K2*KBIT 

FFT 00 10 0 


R=-AlK2«t» 

FFT 0010 1 


T=A<K2I 

FFT 00 10 2 


A«K2»=A<K»-R 

FFT 00 10 3 


A(KI=A(KI »R 

FFT 0010 4 


A(K2«-1> = AIK*1»-T 

FFT 0010 5 


AIK*ll=Af K*1»*T 

FFT CO 10 6 


AHR=A(K1»-ACK1«-1I 

FFT 00 10 7 


AWI=ACK1MI*AIK1» 

FFT 0010 8 


R=-AtK3»-A»K3*-ll 

FFT 00 10 9 


T=AtK3l-AIK3*l» 

FFT 00110 


A CK3 1 = < A MR -R I /ROOT 2 

FFT 00 111 


A(K3*1)={ A WI-TI/R00T2 

FFT 00 112 


A t Kl) = < AHR+R) /R00T2 

FFT 00 11 3 


A(K1+1I=<AHI»TI/R00T2 

FFT 0ull4 


T=AIK1> 

FFT 00115 


AfKll=AtKI-T 

FFT 03 11 6 


A (K ) = A (K) *T 

FFT 0011 7 


T=A<K1«-1> 

FFT 00118 


AfKl»l)=A(K«l>-T 

FFTCt 11 9 


A(K*1>=ACKH)»-T 

FFT 00 120 


R=-A(K3«U 

FFT 00 121 
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T=A(K3» 

FFT 00122 


MK3) = AIK2I-R 

FFT 00123 


A (K2) =A (K2I »R 

FFT 00124 


A(K3*1)=A«K2*1»-T 

FFT 00 12 5 

160 

A(K2*1)=AIK2*1I*T 

FFT 00126 


IF (JLAST-1J 310,310,170 

FFT 00127 

170 

JJ=JJ*JJOIF 

FFT 0012 8 


DO 300 J-2, JLAST 

FFT 0012 9 


I=IN/CJ#1» 

FFT00130 


IC=NT-I 

FFT 00 131 


HID =S( ICI 

FFT00132 


W(2)=S(IJ 

FFT 00133 


12=2*1 

FFT 00134 


I2C=NT-I2 

FFT 0013 5 


IF (120 200,190,100 

FFT 00136 

180 

H2 ( 1 )=S ( I2C) 

FFT 00137 

H2(2)=S(I2t 

FFT 0013 8 


GO TO 210 

FFT 00 13 9 

190 

W2 f 11 =0 • 

FFT 00140 

H2(21=l. 

FFT 0014 1 


GO TO 210 

FFT 00 14 2 

200 

I2CC=I2C*KT 

FFT 00143 


I2C=-I2C 

FFT 00144 


H2(1)=-S*I2C) 

FFT 30 145 


M2 ( 21=S ( I2CCI 

F FT 0 0 1 4 6 

210 

13=1*12 

FFT 00147 


I3C=NT-I3 

FFT 00148 


IF (I3C1 240,230,220 

FFT 00149 

220 

H3(1)=S(I3C) 

FFT 00 15 0 

H3 (2»=S (131 

FFT 00151 


GO TO 280 

FFT 00 15 2 

230 

W3(l)=0. 

FFT 00 15 3 

H3(2)=l. 

FFT00154 


GO TO 280 

FFT00155 

240 

I3CC=I3C*KT 

FFT 00 15 6 


IF (I3CCI 270,260,250 

FFT 00157 

250 

I3C=-I3C 

FFT 0015 8 

H3( 11 =~S (I3C) 

FFT00159 


H3 ( 2) =S (I3CC) 

FFT 00160 


GO TO 280 

FFT 0016 1 

260 

M3(l)=-1. 

FFT00162 


H3(2)=0. 

FFT 00163 


GO TO 280 

FFT 00164 

270 

I3CCC=NT*I3CC 

FFT 0016 5 

I3CC=-I3CC 

FFT0C166 


H3(l)=-S (I3CCC1 

FFT 00167 


W3(21=-S(I3CC> 

FFT 00 16 8 

280 

ILAST=It*JJ 

FFT 0016 9 


DO 290 I=JJ,ILAST,IOIF 

FFT00170 


KLAST=KL*I 

FFT0017 1 


00 29C K=I,KLAST,2 

FFT 00172 


K1=K*KBIT 

FFT 00173 


K2=K1*K9IT 

FFT 00174 


K3=K2*KBIT 

FFT00175 


R=A(K2)*M2tl)“A(K2*l)*M2(2) 

FFT 0017 6 


T=A(K2)*H2(21+A(K2*1I*M2I11 

FFT OC 17 7 


A!K21=A(Kl-fi 

FFT0017 8 


A(K)=A(KI *R 

FFT 00179 


A(K2*1)=A(K*1»-T 

FFT00180 


A(K*1»=A(K*11*T 

FFT 00181 


R=A»K3) *H3<11-A<K3*1»*H3(21 

FFT 00 18 2 


T=Af K3> *W3(2)*A(K3*1)*H3(1» 

FFT 0018 3 


AWR=A<K1)*H(1»-A(K1*1)*H(2) 

FFT 00184 
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AHI=A(K1)*H(2» ♦A<K1*1»*W(1I 

FFT00105 


ACK3I=AKR-R 

FFT0Q186 


A(K3*1) = AH _ T 

FFT00187 


A(Kl)=AWR+« 

FFT0018 8 


ACK1+1I=AKI*T 

FFT00189 


T= ACK1I 

FFT 00190 


A ( Kll =A (K) "T 

FFTQ0191 


A(K)=A(K) +T 

FFT00192 


T=A (Kl+ll 

FFT00193 


AIK1*1» = A«K+H-T 

FFT00194 


A(K*1I=A (K*l)«-T 

FFT00195 


R=-A(K3*1I 

FFT00196 


T=A(K3> 

FFT 00197 


A(K3I=A(K2I-R 

FFT00198 


A ( K2) =A ( K2) *R 

FFT00199 


ACK3*1)=AIK2*1»-T 

FFT 00 200 

290 

A(K2*i»=A(K2*l»*T 

FFT00 201 

300 

JJ=JJOXF»JJ 

FFT 00 20 2 

310 

JLAST=4*JLASI>3 

FFT 00 20 3 

320 

CONTINUE 

FFT00204 

330 

CONTINUE 

FFT00205 


NTSC=NT*NT 

FFT 00 20 6 


H3MT=M3-NT 

FFT00207 


IF <M3HT) 350,340,340 

FFT 0 0 20 8 

340 

IG03=1 

FFT 0 0 20 9 


N3VNT=N3/NT 

FFT 00 210 


NINF3=NT 

FFT00211 


GO TO 360 

FFTOO 212 

350 

IG03=2 

FFT 00 21 3 


N3VNT=i 

FFTOO 214 


NT VN3=NT/N3 

FFT 00 21 5 


NINN3=N3 

FFTC0216 

360 

JJ03=NTSQ/N3 

FFTOO 217 


H2MT=W2-NT 

FFT 00 21 8 


IF CM2MT) 380,370,370 

FFTOO 21 9 

370 

IG02=1 

FFTOO 22 0 


N2 VNT=N2/NT 

FFT 00 221 


HINN2=NT 

FFTOO 222 


GO TO 390 

FFT 00 223 

380 

IGQ2=2 

FFT 00 22 4 


N2VNT=1 

FFTOO 225 


NTVN2=NT/K2 

FFT 00 22 6 


KINN2=N2 

FFT00227 

39C 

JJ02=NTSQ/N2 

FFT 00 22 8 


M1NT=H1-MT 

FFTOO 22 9 


IF (N1MT1 410,400,400 

FFT 0023 0 

400 

IG01=1 

FFTOO 231 


N1VNT=N1/NT 

FFT 00 232 


HINN1=NT 

FFTOO 233 


GO TO 420 

F FT 0 0 2 3 4 

410 

IG01=2 

FFT 00235 


N1VNT=1 

FFTOO 236 


NTWN1=NT/N1 

FFT09237 


MINN1=N1 

FFT 0023 8 

420 

J JD1=NTSQ/N1 

FFTOO 23 9 


JJ3=1 

FFT 00 240 


3=1 

FFT uQ 24 1 


DO 570 JPF3=1, N3VNT 

FFTOO 242 


IPP3=TNV ( JJ3) 

FFT00243 


OO 56C JP3=1 , MINN3 

FFT 00 24 4 


GO TO (4 30 t 440 J , IG03 

FFT 00245 

430 

IP3=INV (JP3)*N3VNT 

FFTOO 246 


GO TO 450 

FFT00247 
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440 

IP3=INV IJP3I/NTVN3 

FFT00248 

450 

I3=(IPP3HP3)*N2 

FFT00249 


JJ2=1 

FFT00250 


DO 560 JPF2=1* N20NT 

FFT00 251 


IPP2=INV(JJ2)*I3 

FFT00 25 2 


00 550 JP2=1,NINN2 

FFT00253 


GO TO 1460,470) , IG02 

FFT00254 

460 

IP2=IN\MJP2)*N2VNT 

FFT00255 


GO TO 480 

FFT00256 

470 

IP2=INV(JF2)/NTVN2 

FFT00257 

480 

12= IIPP2*IP2)*N1 

FFT00258 


JJ1=1 

FFT00259 


00 550 JPF1=1 ,N1VNT 

FFT00 26 0 


IPP1=IN V (JJ1IH2 

FFT00 261 


DO 540 JP1=1,HINN1 

FFT 00 262 


GO TO <490,500) , IGOl 

FFT0C263 

490 

IP1= IN V ( JF1 ) *N1 VNT 

FFT 00 264 


GO TO 510 

FFT 00 26 5 

50 0 

IP1=INV(JF1)/NTVN1 

FFTOO 266 

510 

I=2*(TPF1*IF1>*1 

FFT00267 


IF CJ-I) 520,530,530 

FFTOO 26 8 

520 

T=A(I) 

FFT 00 26 9 


A ( I ) =A ( J) 

FFTOO 27 0 


A < J )=T 

FFTOO 27 1 


T=A tl + l) 

FFT 00 27 2 


A(I*i)=ACJ«-l) 

FFT0027 3 


A(JH)=T 

FFT 00 27 4 

530 

CONTINUE 

FFTOO 27 5 

540 

J=jf2 

FFT 00 276 

550 

J Jl= JJ1 » JJD1 

FFTOO 277 

560 

JJ2=JJ2*JJ02 

FFT0027 8 

570 

JJ3= JJ3+ JJ03 

FFT 0027 9 


IF (IFSET) 580,600,600 

FFTOO 280 

580 

00 590 1=1, NX 

FFT 00 281 

590 

At2*»I) = -A<2*I> 

FFT00282 

600 

RETURN 

FFT00283 

610 

KT=HAXO<Nti) ,M(2) ,M(3))-2 

FFT00284 


MT=rAX0 <2, NT) 

FFT 00 285 


IF f NT-20 ) 630,630,620 

FFT00286 

620 

I FERR=1 

FFT 00 287 


GO TO 600 

FFT 00 28 8 

630 

IFERR=0 

FFT00289 


NT=2**NT 

FFTOO 290 


NTV2=NT/2 

FFT 00 291 


THETA=. 7853981634 

FFT 00 292 


JSTEP=NT 

FFTOO 293 


J0IF=NT»2 

FFT 00 294 


SI JCIF)=SIN<THETA) 

FFT00295 


00 660 L=2,NT 

FFT00296 


THETA=THETA/2. 

FFT00297 


JSTEP2=JSTEF 

FFT00298 


JSTEP=JDIF 

FFT00299 


J0IF=JSTEP/2 

FFT00300 


S< JCIF)=SIN<THETA) 

FFTOO 301 


JC1=NT-J0IF 

FFT OS 30 2 


S(JC1)=C0S (THETA) 

FFT 00303 


JtAST=NT-JSTEP2 

F FT 0 0 30 4 


IF ( JL AST -JSTEP) 660,640,640 

FFT 00305 

640 

CO 650 J=JSTEP,JL AST, JSTEP 

FFTOO 30 6 


JC=NT-J 

FFT 00 30 7 


JO= J+ JDIF 

FFT 00 30 8 

650 

S <JO)=S ( J)*S(JC1) *-S ( JO IF) *S ( JC) 

FFT 00 30 9 

660 

CONTINUE 

FFTOO 310 
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c 


FFT 00 311 

c 

SET UP INV(J> TABLE 

FFT 00 312 


KTL£XP=NTV2 

FFT 00 313 


LM1EXP=1 

FFT 00 314 


INV (11=0 

FFT 00 315 


00 680 L=1,MT 

FFT OU 31 6 


INV(LM1EXF*1)=MTLEXP 

FFT 00 31 7 


DO 670 J=2,LM1£XP 

FFT 00 318 


JJ=J*LM1EXP 

FFT 00 31 9 

670 

IN V ( J J) = I N V ( J) *MTLEXP 

FFT 00 32 0 


HTLEXP=MTLEXP/2 

FFT0032 1 

680 

LN1EXP=LM1EXP*2 

FFT0J32 2 


IF (IFSET) 20,600,20 

FFT 00 32 3 


ENO 

FFT0Q32 4 


SUBROUTINE FFTRS IX ,OX, OF, M, INV.S, IFS, IFERI 
C 

C FOURIER TRANSFORM OF REAL SYMMETRIC OATA STORED AS COMPLEX ARRAY X 
C 

CIMENSICN X(l) ,MC1),INV(1> ,S(1) 

C 

0F=1./0X/2.**MC1» S X(l)=Xfil*OX C X(2I=0. t 11=3 
I2=2**(H(1)*1)-1 t M1=2*MM(1)-1I 
DO 10 1=1, Ml 

X(I1)=(X(I1)*X(I2)»*0X t X ( I2t=X (II ) 

X(I1*1)=0. * X ( 12 + 11 =0 . < 11=11*2 

10 12 = 12-2 

I F= IAOS I IFSI 

CALL FFT(X,H,INV,S,IF, IFERI 
RETURN S ENO 


FFTRS 00 1 
FFTRS002 
FFTRS00 3 
FFTRSOO 4 
FFT RS00 5 
FFTRS006 
FFTRSOO 7 
FFTRSOO 8 
FFTRS009 
FFTRSOlO 
FFTRS01 1 
FFTRS012 
FFT RS013 
FFTRS014 
FFTRS01 5 


PROGRAM IHCPO (INPUT, OUTPUT , PUNCH, TAPE 5= INPUT »T APE6= OUTPUT ,TAPE7= 
1PUNCHI 

C A PROGRAM TO GENERATE AND FOURIER TRANSFORM ONE-DIMENSIONAL CHARACTER- 
C ISTIC FUNCTIONS OF THE GENERAL NON-GAUSSIAN MODEL. CORRELATION 
C MATRICIES AND FUNCTIONAL MATRIX ARE READ FROM DATA CARDS. 

C PROGRAM PRINTS PROBABILITY OENSITY FUNCTION IN BOTH STANDARDIZED 
C AND NONSTANOARQIZEO FORM IN INCREMENTS OF OX+SR FROM ZERO TO 
C 200*OX*SR. RESULTS ARE PUNCHED ON CAROS IF LOGICAL VARIABLE PNCH 
C IS SET TRUE. 

C 

C INPUT OATA* 

C TITLE (8A18I DESCRIPTIVE TITLE TO ACCOMPANY OUTPUT 
C NOIM (II) SIZE OF MATRICIES (.LE.8) 

C SG2 (F10.5) VARIANCE OF GAUSSIAN PROCESS 

C A (( Ad, J) , J=1,NDIMI ,1=1, NOIM) BY ROMS (UP TO 8 COLUMNS) 

C CORRELATION MATRIX OF FIRST GAUSSIAN VECTOR 

C B (SAME FORMAT AS A) CORRELATION MATRIX OF 2ND GAUSSIAN VECTOR 

C C (SAME FORMAT AS A) FUNCTIONAL MATRIX 

C 

COMMON /CCR/ A ( 8 , 8) ,3(6,8) ,C(8,8) , NDI M, ISIZE ,DET A,DETB, 

1 A1 ( 8,8) ,81(8,8) ,C4(8,8> ,A2(8,8) ,82(8,8) 

COMMON / / S (1 281 ,INV(128I , PD ( 10 26) 

DIMENSION M (3) ,PHI(1026) ,TITLE(8» 

EQUIVALENCE (PD (1) ,PHI (1) ) t LOGICAL PNCH 
OATA PNCH/. F,/ 

OATA M, IFS/S»3 ,0,1/ 


INCPD001 
INCPDOO 2 
INCPOCO 3 
INCPDOO 4 
INCPDOO 5 
INCPOCO 6 
INCPDOO 7 
INCPDOO 8 
INCPDOO 9 
INCPOOIO 
INCPD011 
INC P001 2 
INC POO 13 
INC POOl 4 
INCPD015 
INC PD 01 6 
INCPOOi.7 
INCP0018 
INC POOl 9 
INCPD020 
INC POO 21 
INCPD022 
INCPO023 
INCPD02 4 
INCPD025 
INCP0C26 


II 


O <-> or) on o f»o 
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MINIHUM VALUE OF MC1J FOR OX OF .05 ANO XMAX OF 10. IS 9 «512) INCPD027 

OATA OX/ . 05/ INCPD028 

NORMALIZED DENSITY IS TO BE EVALUATED AT X/SIGMA = MULTIPLES OF DX INCP0029 
DATA Ci,C2,C3/7.6388S88889£-03,-6..4583333333E-02,5.5694444444E-ai/INCP0030 
C1.C2.C3 ARE CONSTANTS USED IN NUMERICAL INTEGRATION OF PROB. DENSITY INCPD031 

INCPD032 


DATA PI22/35. 478417604/ 

DATA ISIZE/8/ 

FORMAT (SA1G./.I1./.F10.5) 
FORMAT (8F10 .5) 

FORMAT (1H .5X.8F10.5) 

FORMAT (1H0 ) 

FORMAT (1H1,5X,8A10) 

FORMAT (1H0.5X. *CO VARIANCE 
FORMAT (1H0,5X, ’COVARIANCE 
FORMAT (1HO,5X,*FUNCTIONAL 
INPUT CATA 
15 READ <5,i» TITLE. NOIM.SG2 
IF f EOF » 5 ) 400,16 
WRITE (6,5) TITLE 
WRITE (6,6) 

DO 17 1 = 1 ,NCIM 
READ (5,2) (A(I,J) ,J=l,NOIM) 
WRITE (6,2) (A(I,J) , J=l» NOINI 
WRITE (6,7) 

DO lfl 1 = 1 ,NCIM 

READ (5,2) (B(I, J) ,J=l,NOIM) 
WRITE (6,3) (B(I, J) ,J=1»N0IM) 
WRITE (6,0 
DO 19 1 = 1 , NOIM 

RE AC (5,2) (C(I,J) ,J=1,N0IN> 
19 WRITE (6,3) (C(I, J) ,J=1, NOINI 


1 

2 

3 

4 

5 

6 
7 
0 

RE AO 


16 


17 


18 


MATRIX OF 1ST GAUSSIAN VECTOR*) 
MATRIX OF 2ND GAUSSIAN VECTOR*) 
RELATION MATRIX*) 


00 €0 I=1,NCIM 
CIJ=C(I,J) * 
DO 50 K=1,NDIH 
CKL=C ( K,L) t 


CALCULATE STANOARO DEVIATION OF TOTAL PROCESS, SR 
SR2=SG2 

% 00 60 J=1,N0IH 

IF (CIJ.EQ.O.) GO TO 60 
t 00 50 L-=l ,NOIM 
IF (CKL.EQ.tt.) GO TO 50 
SR2=SR2*A (I,K)*B( J,U *CIJ*CKL 
50 CONTINUE 
60 CONTINUE 

SR=SQPT (Sfi2) J WRITE (6,65) SR 
65 FORMAT (1H0 ,5X,*ST ANOARO DEVIATION OF PROCESS =*,E10.3) 

GENERATE CHARACTERISTIC FUNCTION 
CALL INVRS 

WRITE (6,70) 0ETA.0ET8 

7 C FORMAT (1H0.5X, ’DETERMINANTS OF COVARIANCE MATRICI£S*,/,6X , 
1*0ET A =*,E12.5,/,6X,*0ET3 =*,E12.5) 

EVG2=SG2/2. t F=0. * DF=1./0X/2.”M(1) S NPTS=2”(M( 1) *1) 

OF L=OF/SR 

00 150 1=1 , NPTS ,2 

F2=FI22*F**2 

CFR=1. 

CALL CFl(CFF.F) 

CFR=CFR*EXP(-EVG2*F2) 

PHI (I) =CFR t PHI ( 1*1) =0, 

150 F=F*0F1 

FOURIER TRANSFORM TC OBTAIN PROBABILITY DENSITY 
CALL FFTRSIFHI,DF,DX,M,INV,S,IFS,IFER) 

IFS=2 


INC PD033 
INCPD034 
INCPD03 5 
INCPO036 
INCPD037 
INCPD038 
INCPD039 
INCPD040 
INCP0041 
INCPD042 
INC POO 43 
INCPO044 
INCPD045 
INCPD046 
INCP0047 
INCP0048 
INCP004 9 
INCPD050 
INCP0651 
INC PD052 
INC PDC53 
INCPO054 
INCP0055 
INCP0056 
INCPD057 
INCPD05 8 
INCPD059 
INCPO06 0 
INCPD061 
INCPD062 
INCP0063 
INCP0064 
INCP0065 
INCP0C66 
INCP0C67 
INCPD068 
INCPD069 
INCPD070 
INC POO 71 
INCP0072 
INCPD073 
INCPO074 
INCPD075 
INC POO 7 6 
INCPD077 
INCP0078 
INC POO 7 9 
INCPDii 8 0 
INCPD8 8 1 
INCPO082 
INCPD083 
INC POO 84 
INCPD085 
INCPD086 
INC POO 8 7 
INCPD088 
INC POO 8 9 
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IF (IFER.NE.O) WRITE (6,2001 IFER INCP0090 

200 FORMAT (1H0 ,*-: ERROR IN FFT, ERROR FLAG = * ,12 ,/ ,5X, ’RESULTS INVAINCP0091 

1LIO FOR THIS CASE*! INCP0092 

IF (PNCH) WRITE (7,2191 TITLE INCPD093 

219 FORMAT (8A10I INCPD094 

WRITE (6,220) TITLE INCP0095 

220 FORMAT (1H1,5X, 8A10I INCPD096 

WRITE (6,221! INCP0097 

221 FORMAT (1H0,5X, ’NORMALIZED*, 4X,*ST0IZED*,4X, ’DISTRIBUTION*, 5X, INCPD090 

1*UNNORMALIZEO*,3X,*NONSTOI ZED*, /, 7X ,* VARIABLE* ,3X,*PR0B ABILITY*, INCP0099 

24X **FUNCT 10!*, 9X ,*VARI ABLE* ,5X , ’PROBABILITY* »/»7X,*X/ SIGMA X*, INCPD100 

34X,*OENSITY*,27X,*X*,10X,*0£NSITY*,/! INCPD101 

DX1=0X*SR2 INCPD10 2 

CD=.5 I X=0. S X1=0. INCPO103 

LINCNT=0 INCP0104 

N=IM(10./OX!*2 INCPD105 

IF (N.GT .NPTS/4) N=NPTS/4 t N=N*2 INCPD106 

JNAX=N INCPD107 

DO 250 J=1,N,2 INCPD108 

IF (P0( J) .LT.O.) GO TO 255 INCPD109 

250 CONTINUE INCP0110 

GO TO 265 INCP0111 

255 JNAX=J INC PD 112 

00 260 I»J,N,2 INCPD113 

260 P0(I)=0.0 INCPD114 

265 CONTINUE INC P0115 

IF ( , NOT • PNCH) N= JHAX INCP0116 

DO 300 J=1,N,2 INCP0117 

UPO=FO( J1/SR2 INCPD118 

WRITE (6,222) X,PO ( Jl , CD ,X1,UP0 INCP0119 

222 FORMAT (1H ,7X , F6 . 3 , 4X ,E10 . 3 , 3X,£12.5 , 6X.E10 . 3 , 4X ,E10 .31 INCPD120 

IF (PNCHI WRITE (7,2231 X, PD ( J) ,C0,X1 ,UPD INCP0121 

223 FORMAT (5E1E.9I INCP0122 

LINCNT=LINCNT*1 INCPD123 

C RESULTS APE PRINTED AT 51 LINES PER PAGE INCPD124 

IF (LINCNT.LT. 511 GO TO 290 INCPD125 

IF (J.GE.N-1) GO TO 300 INCP0126 

WRITE (6,2201 TITLE INCP0127 

WRITE (6,221) INC PD 12 8 

WRITE (6,222) X,PO( J) ,CO,Xi,UPO INCPD129 


LINCNT=1 

290 IF (J-3) 291,292,293 

291 CQ=C0MC1*PC(J*4) »C2*P0 ( J*2 ) 1 *0X 
GO TO 294 

292 CD=CO* (Cl’PC (J)*C2*PO(J-2))*OX 
GO TO 294 

293 C9= CO* (Cl’PC (J-4) *C2*P0 ( J-21 ) *OX 

294 CD=CO* (Cl’PC (J*6) *C2*P0 ( J*4 ) »C3* (PD ( J) tPD ( J*2) ) ) *OX 

x=x»ox 

300 X1=X1*0X1 
GO TO 15 

400 STOP t END 


INC PD 13 0 
INCP013 1 
INC PD 13 2 
INCP0133 
INCP0134 
INCP0135 
INCPD136 
INCPD13 7 
INCPD13 8 
INCPD139 
INC PO140 
INCP0141 
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SUBROUTINE INRPOT(V, I. J,KKI 
C 

C SUBROUTINE TO COMPUTE THE INNER PRODUCT OF TWO EIGENFUNCTIONS 
C 

C E = ARRAY OF EIGENVALUES 

C EFP * ARRAY OF F EIGENFUNCTIONS {EIGENFUNCTIONS OF 1ST VARIABLE) 

C EFO = ARRAY OF C EIGENFUNCTIONS {EIGENFUNCTIONS OF 2ND VARIABLE) 

C FI , F2 = TEMPORARY STORAGE ARRAYS 

C If J = ITH AND JTH EIGENFUNCTIONS ARE TO BE USED IN COMPUTATION 
C KK = ♦ IF P EIGENFUNCTIONS ARE TO BE USED IN COMPUTATION 
C - IF Q EIGENFUNCTIONS ARE TO BE USED 

C NPOLY = DEGREE CF INTERPOLATING POLYNOMIALS 
C NPT = NUMBER OF ABCISSAE POINTS 

C V = VALUE OF INFER PRODUCT RETURNEO BY SUBROUTINE 
C X = ARRAY OF ABCISSAE 
C 

COMMON /ARRAYS/ E t 8) ,EFP (45 , 8) , EFQ(45 , 8) ,X (*51 , FI (45) ,F2{ 45 ) , 
1NPT » NPOLY f C (4) ,D (4) 

C 

NC=NPOLYM S IF (KK) 10,100,15 

INNER PRODUCT (Q(I),Q(.|>) 

10 DO 11 L=1,NPT 
FI (L)=£FQ (L 1 1) 

11 F2(L)=EFQ(L,J) 

GO TO 20 

INNER PRODUCT (F(I),P(j)) 

15 00 16 L = 1 f NPT 
F1(L)=EFP(L,I) 

16 F2(L)=EFP(L,J) 

20 V=0.0 * K=NPT-1 

00 *.0 JJ=1,K 

CALL COEF ( J Jt Flf C) S CALL COEFC JJ,F2,D* 

X1=X(JJ> S X2=X ( J J+l) 

00 40 11=1, NC 
X12=X1**II S X22=X2**II 
CII=C(II) < CL=FLOAT (II) 

00 *.0 LL=1,NC 

V=V*CII*0(LU*(X22-X12)/CL S CL=CLH. t X12=X12*X1 
40 X22=X22*X2 
RETURN 

100 WRITE (6,101) 

101 FORMAT (1H0,5X,*FATAL ERROR IN INRPOT, KK=0*) 

STOP t END 


INRPOO 0 1 
INRPOOO 2 
INRPOO OS 
INRPOOO 4 
INRPDOO 5 
INRPDu06 
INRPOOO 7 
INRPOOO B 
INRPDOO 9 
INRPDG10 
INRPD011 
INRPOO 12 
I NR POO 13 
INRPO014 
INRPOO 15 
INRPD016 
INRPDC17 
I NR P001 8 
INRPD01 9 
INRPOO 20 
INRPOO 21 
INRPOO 22 
INRP002 3 
INRP0024 
INRPO02 5 
INRP0026 
INRP0027 
INRPD02 8 
INRP002 9 
INRPOO 30 
INRPOO 3 1 
INRP0032 
INRPOO 33 
INRPD034 
INRPD03 5 
INRPD036 
INRP0Q37 
INRP003 8 
INRPD039 
INRP0040 
INRP0041 
INRP0042 
INRP0043 
INRPOO 44 
I NR PD 0 4 5 
INRPD046 
INRPOO 47 



SUBROUTINE INVR(A, N, OETERM , IS IZE , JSIZE) 

INVROOO 1 
INVRQOO 2 

SUBROUTINE TO INVERT MATRIX A AND COMPUTE ITS DETERMINANT 

DIMENSION IFIVQT(25),A(ISIZE,JSIZ£),IN0EX(25,2) ,PIV0T(25) 
EQUIVALENCE (IROH, JROW) , ( ICOLUM , JCOLUM) , { AHAX ,T ,SHAP> 

INVROOO 3 
INVROOO 4 
INVROOO 5 
INVROOO 6 
INVROOO 7 

10 

OETERM=1.0 

INVROOO a 

15 

00 20 J=i,N 

INVR0009 

20 

IPI VOT (U)=0 

INVR0010 

30 

00 550 1=1, N 

INVRuOll 

INVR0012 
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C SEARCH FOR FIVOT ELEMENT 

40 AMAX=0. % ICOLUM=0 
45 DO 105 J=1,N 

50 IF (IPIVOTIJI-ll 60, 105, 60 
60 00 100 K=1,N 

70 IF (IPIVOT ( K > — 1 > 80, 100, 740 
80 IF(ABS(ANAX1-A9S(A(J,K11 I 85,100,100 
85 IR0h=J t IC0LUH=K t AMAX=A(J,KI 
100 CONTINUE 
105 CONTINUE 

110 IPIVOT (ICCLUH) =IPI VOT (IC0LUM1 +1 

INTERCHANGE ROHS TO PUT PIVOT ELEMENT ON DIAGONAL 
130 IF (IROH-ICOLUM! 140, 260, 140 
140 OETERH=-OETERM 
150 OO 200 L=1,N 

160 SHAP= A( IROH »LI t A ( I ROW, L) = A(ICOLUM,L) 

200 A(IC0LUK,L1=SHAP 
260 INDEX(I,i)=IfiOW 

270 INOEX II , 2 ) = IC0LUM « PI VOT ( I1=A (ICOLUM, ICOLUMI 
320 DET£RM=OET£RH*PIVOT(Il 

OIVIOE PIVOT ROW BY PIVOT ELEMENT 
330 A ( ICOLUM , 1CCLUMI =1 . 0 
340 DO 350 L=1,N 

35 0 A(ICOLUH,ll=A{ ICOLUM, LI /PI VOT III 

REOUCE NON-PIVOT ROHS 
380 00 550 Ll=i,N 
390 IFILl-ICOLUNI 400, 550, 400 
40 0 T=A IL1, ICCLUMI 
420 A ( LI, ICCLUH 1=0 .0 
430 00 450 L=1,N 

AIL1,LI=AIL1,L1-AIIC0LUM,L1*T 
450 CONTINUE 
550 CONTINUE 

INTERCHANGE COLUMNS 
600 00 710 1=1, N 
610 L=N*1-I 

620 IF IINDEX IL , 11 -INOEX 1L , 2 ) I 630, 710, 630 
63 C JROH=INCEX 11,11 
640 JC01UH=IN0EXIL,2I 
650 00 705 K=1,N 

660 SWAF = A(K, JRCH) * A I K, JR0H1 = A I K , JCOLUM) S A I K, JCOLUM1 = SH AP 
705 CONTINUE 
710 CONTINUE 
740 RETURN S END 


INVRGQ13 
INVR0014 
INVR001 5 
INV R0016 
INVR0017 
INV R0018 
INVR0019 
INVR002 0 
INVR0621 
INVR0022 
INVR0 02 3 
INVR0024 
INVR0025 
INVR0026 
INVR0027 
INV RC 02 8 
INVR0029 
INVR0030 
INVR003 1 
INVR0032 
INVR0033 
INVR0034 
INV ROD 35 
INV R0036 
INVR0037 
INVR0 03 8 
INVR0039 
INVR0040 
INVR0U41 
INVR0042 
INVR0043 
INVR0044 
INV RO 045 
INVR0046 
INV RO 047 
INV R0048 
INVR0049 
INVROJSO 
INVR0051 
INVR0Q52 
INVR0053 
I NV RO 0 5 4 
INVR0055 
INVR0056 
INVR0057 
INVR005 8 
INV RO 05 9 
I NV RO 06 0 


PROC-RAH LEVXNG I OUTPUT, PUNCH,TAPE6=OUTPUT ,TAPE7=PUNCHI LEVXG001 

LEVXGOO 2 

PROGRAM TO COMPUTE SPECIAL CASE LEVEL CROSSING FREQUENCIES OF THE NON-LEV XG003 
GAUSSIAN MODEL FOR GIVEN LIST OF R PARAMETER VALUES. LEVXGOO 4 

LEVXG005 

INPUT DATA - NONE IPROGRAM IS CONTROLLED THROUGH DATA STATEMENTS! LEVXG006 

LEVXGOO 7 

CCMMON /CCR/ CHS, 8) ,C2I8, 81 ,C3 18,81, C4 (8,81 , NN, ISIZE, OET A, OETB, LEVXGOO 8 
1C (320 I LEVXGOO 9 

DIMENSION X (81921 ,S 1 10241 , INV (10 241 ,M(3I , OF 1 21 ,DX(2I , TITLE (81 LEVXG010 

DIMENSION RARRAY (61 LEVXGdll 
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COMPLEX SUM* A( 64 » 641 S LOGICAL PNCH LEVXG012 

EQUIVALENCE (X < II, A Cl, 1)1 LEVXG013 

IPS AND M ARE VARIABLES USEO BY FFT LEVXG014 

DATA IFS, M/1, 6,6,0/ LEVXG015 

RARSAY CONTAINS THE R PARAMETER VALUES' TO BE USEO LEV XG016 

DATA RARRAY/1.,0.,. 5, .75, 1.3333333333, 2,/ LEYXG017 

NCASE IS THE NUMBER OF R PARAMETER VALUES TO BE USEO, .LE.6 LEVXG018 

OATA NCASE/1/ LEVXG019 

OXOS IS INCREMENT OF TABULATION (IN STANDARD DEVIATIONS! LEVXG02 0 

NT AB IS NUMBER CF TABULATED VALUES DESIRED LEVXGG21 

OATA OXCS ,NTA3/.2,4i/ LEVXG022 

ISIZE IS SIZE OF MATRICIES USEO BY INVR LEVXG02 J 

OATA ISIZE/8/ LEVXG024 

PNCH IS LOGICAL VARIABLE, IF SET TRUE RESULTS ARE PUNCHED ON CAROS LEVXG025 
DATA PNCH/.F./ 1EVXG0Z6 

C11,C12, AND Cl 3 ARE CONSTANTS USEO IN NUMERICAL INTEGRATION OF THE .LEVXG027 
JOINT OENSITV FUNCTION LEVXG02 8 

DATA Cll, C12,C13/7.6388S88aa9E-03,-6.4583333333E-02,5.5694444444E-LEVXG029 
101/ LEVXG030 

OATA THCPI2/19. 739208802/ LEVXG031 

LEV XG032 

OO 140 NR AT 10= 1, NCASE LEVXG033 

R=RARRAY(NFATIO) LEY XG034 

GENERATE TITLE ARRAY TO ACCOMPANY OUTPUT LEVXG035 

ENCODE (80,5, TIT LEIR LEVXG036 

5 FORMAT <* LEVEL CROSSING FREQUENCY OF THE NON-GAUSSIAN MODLEVXG03 7 


1EL, R=*,F7.3,* *) 

CONSTRUCT CORRELATION ANO FUNCTIONAL DEPENDENCE MATRICIES 
NN=2 * IF (R.L£.0.1NN=0 
Ci(i,l)=C2(l,l)=R/SQRT(l.*R**2) 
Ci(2,l)=Cl(i,2)=C2(l,2)=C2(2,i)=0. 

C3 (1,11 = 1, t C3(2,2I=C3(2,11=C3(1,2)=0. 
C4(1,1»=C4(2,2I=0, t C4(1,2)=C4{2,1)=1. 
S1G2=1./U«*R**2» 

COOING USEO HERE IS FOR U-GUST COMPONENT UNIVERSAL CURVES 
Cl (2,2I=C1(1,1 1/2, S C2(2,2)=C2(l,l)/2. * S2G2=S1G2 

COOING FOR THE V-W GUST UNIVERSAL CURVES MOULD BE 

Cl(2,2l=Cl(2,2)/2, t CZ (2, 2 !=C2 (1,11 t S2G2=1. 5*S1GZ 


LEVXG03 8 
LEVXG03 9 
LEV XG 040 
LEVXGG41 
LEVXG042 
LEV XG043 
LEVXG044 
LEV XG045 
LEVXG046 
LEV XG047 
LEVXG048 
LEV XG049 
LEVXG05 0 
LEV XGC51 
LEV XG052 
LEVXG053 
LEVXG054 


S12=S1G2*C1(1,1)*C2(1,1) 

S22=S2G2*C1(1,1>*C2(2,2!*C1(2,2)*C2«1,1> 

IF (NN.NE.01 WRITE (6,3C! ( (Cl ( I, J) , J=1 ,21 , 1=1 ,2) , ( (C2 ( I, Jl , J=1,2J LEVXG055 
1,1=1, 2) LEVXG056 

30 FORMAT (1H1 , 5X , *CO V A RI A NCE MATRICIES OF FIRST AND SECONO*,/, LEV XG057 

16X, ’GAUSSIAN VECTORS APE* , / , < 6X, 2E 1C . 3 1» LEVXGC5 8 

IF (NN.NE.O) WRITE (6,311 ( (C3 ( I , J) , J= 1 ,2) , 1=1, 2) , ( (C4 (I, J) , J=l, 2) LEVXGC5 9 


1 , 1 = 1 , 2 ) 

31 FORMAT (1HO,5X,*FUNCTIONAL RELATIONSHIP MATRICIES FOR FIRST*,/, 
16X,*AN0 SECCNO TRANSFORM VARIABLES ARE* ,/ , (6X, 2E10 .3) J 
WRITE (6,35) R 

35 FORMAT (1H0,5X,*R PARAMETER =*,F6.3) 

IF (PNCH) WRITE (7,401 R 
40 FORMAT (*fi =*,F6.3) 


LEVXG060 
LEVXG06 1 
LEVXG062 
LEVXGQ63 
LEVXG05 4 
LEV XG065 
LEVXGC66 
LEVXG067 
LEVXG06 8 
LEV XG06 9 
LEVXG070 


GENERATF CHARACTERISTIC FUNCTION 

56 CALL INVRS(ANS,F1,F2) 

WRITE (6,54) OET A , OETB 

54 FORMAT (1H0 ,5X ,*OETERMINANTS OF COVARIANCE MATRICIES* ,/,6X , *DETA =LEVXG071 
1*,E12.5,/,6X,*0ETB =*,£12.5) LEVXG07 2 

57 OX(l) = .3*SQPT(S12) t OX( 2)= ,3*SQRT (S22) LEV XG073 

M1=2**M (1) * M2=2**H(2) LEVXG074 
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DF(1)=1./0X(1)/N1 t 0F(2)=1./0X(2)/M2 
WRITE (6* 102) OX, OF 

102 FORI* AT (1W0,5X,’X INCREMENTS! DX(1) =*,E14.7,* 0X121 =*,E14.7, 
16X,*F INCREMENTS! 0F(1) =*,E14.7,* 0F(2) =*,£14.71 
0F0F=DFC11 *CF(21 

S1G2=-S1G2»TW0PI2 * S2G2=-S2G2*TH0PI2 

A(1,1)=CMFLX(1.,0.) S Fi=DF(l) t F2=0. 

F11=FL0AT (l-Hl)’OFtl) 

00 2CC 1=2, HI 

CALI CF2 CANS, FI, F2) S ANS= ANS*EXP(S1G2*F1»*2) 

CALL CF2( ANS1,F11,F2) J ANS=ANS* ANSl’EXP (S1G2’F11**2I 
A(I,1)=CHPLX(ANS,0.) S F11=F11*DF(11 
200 Ft=Fl+OF 111 

F 1=0, * F2=0F 121 * F22=FL0AT 11-M2 1 *DF(2) 

DO 300 J X 2»M2 

CALL CF2 CANS, FI, F2) t ANS=ANS*EXP(S2G2*F2**2) 

CALL CF2( ANS1,F1,F22) * ANS= ANS’ANSl’EXP IS2G2*F22**2) 

A(1,J)=CNPL*(ANS,0.) * F22=F22*0F(2I 

300 F 2=F2+DF 1 2) 

Fll=FLOAT (Hl)’OF(ll t F1=0. t M22=N2/2*1 

00 410 1=2, HI 

Fi=Fl*DF 111 t F11=F11-0F(11 
F2=0. t F22=FLOAT(M2)*DF(2) 

DO 400 J=2,H22 

F2=-F2+0FI2I * CALL CF2( ANS.Fl, F2) 

ANS=ANS*EXP(S1G2*F1**2 + S2G2*F2”2) 

F2=-F2 t CALL CF2 t ANSI ,F11, F21 
ANS=ANS*ANS1’EXF(S1G2*F11**2*S2G2*F2**2) 

F22=-F22’CF(2) t CALL CF2 {ANSI »F1,F221 
ANS= ANS + ANSI* EXP <S1G2*F1**2*S2G2*F 22**21 
F22=-F22 $ CALL CF2 t ANSI ,F11 ,F22> 

ANS=ANS*ANS1*EXP <S1G2*F1 1**2*S2G2*F22**2) 

aii,j)=chflxcans,o.» 

40 C A(M1*2-I, M2*2-J)=CHPLXI ANS,0.1 
410 CONTINUE 

WRITE (6,61) (A(J,i),J=l,Ml) 

WRITE (6,62) ( A (1 , J) , J=1 i H2) 

WRITE (6,62) ( A(J, J1 , J=1,M2» 

61 FORMAT (1H1,5X, ’FIRST RCH, FIRST COLUMN, ANO OIAGONAL OF*,/, 
16X, ’JOINT CHARACTERISTIC FUNCTION*,/, (5X,6£10. 3) 1 

62 FORMAT (IN ,/ , (5X, 8E10 . 3) ) 

C 

C FOURIER TRANSFORM TC 08TAIN PROBABILITY OENSITV 
00 71 J=1 , 3192 ,2 

71 X( J)=X( Jl’OFOF 

CALL FFT(X,M»INV,S»IFS»IF£R) 

IF (IFER.EO.O) GO TO 73 
WRITE (6,72) IFER * STOP 

72 FORMAT (1H0 ,5X, ’FATAL ERROR IN FFTRS2 , IFER =*,I5) 

C 

C INTEGRATE TC OBTAIN LEVEL CROSSINGS 

73 C1X=C11*0X(2) $ C2X=C12*0X(2) S C3X=C13*0X( 21 

WRITE (6,74) (A(J,1) , J= 1 , M 1 1 

WRITE (6,62) (A(1,J) , J=1 , M2) 

WRITE (6,62) ( A ( J , J) , J=i , M2) 

74 FORMAT (1H1 ,5X ,*FIRST ROW, FIRST COLUMN, AND OIAGONAL OF*,/, 
16X, ’JOINT PROBABILITY DENSITY*,/, (5X, 8E1Q.31 I 

X2=C. S M21=H2/2H S Hll=Hl/2’3 
00 80 J=1,H21 
DO 75 1=1, Nil 

75 A(I,J)=A(I,J)*X2 
80 X2= X2 *0X ( 2) 

N21=M2/2“2 


LEVXGG75 
LEV XG 07 6 
/, LEVXG077 
LEV XGQ78 
LEVXG07 9 
LEV XG 080 
LEVXG081 
. LEVXG08 2 
’ LEVXGQ83 
LEVXG084 
LEV XG 08 5 
LEVXG0S6 
LEVXG087 
LEVXG088 
LEVXG089 
LEVXG090 
LEVXGC91 
LEVXG092 
LEVXG093 
LEVXG094 
LEVXGQ95 
LEVXGQ96 
LEVXG097 
LEVXG098 
LEVXG099 
LEVXG10 0 
LEVXG10 1 
LEVXG10 2 
LEVXG10 3 
LEV XG10 4 
LEVXG105 
LEV XG 10 6 
LEVXG10 7 
LEVXG19 8 
LEVXG10 9 
LEVXG110 
LEVXG11 1 
LEVXG112 
LEVXG113 
LEV XG114 
LEVXG115 
LEV XG11 6 
LEV XG117 
LEVXG11 8 
LEV XG11 9 
LEV XG12 0 
LEVXG121 
LEVXG122 
LEVXG12 3 
LEV XG12 4 
LEVXG12 5 
LEVXG126 
LEVXG127 
LEVXG12 8 
LEVXG12 9 
LEVXG130 
LEV XG131 
LEV XG13 2 
LEVXG133 
LEVXG134 
LEVXG135 
LEV XG13 6 
LEVXG13 7 
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00 86 1=1*1411 LEVXG13 8 

SUM=C1X* l-flll»3l*AH*4l-A4I»2J*AII»5U *C2X* (A(I,1)-A(I,2) tA<I,3) «- LEV XG 13 9 
1A(I,4>) ♦C3X’(ACI,1I*Z.*A(I,2) *A(I,3>» LEVXG140 

00 85 J=l,M2i LEVXG141 

85 SUM=SUM*ClX*(ACI,J)’A(I,J«-5)>»-C2X*(A(I,jn»»A(I,J*4>)+C3X*(A(I,J*2LEVXG142 


1>*A(I,J+31I 
X4I>=FLCATCI-1»*DXI1I 
66 S(I)=REAL<SUMI 

WRITE (6*87) t X { I » ,SU) ,1=1, Hill 

87 FORMAT f 1H1 ,5X * *C0MPUTE0 VALUES OF X AND N (X) *,/, C4X, 2E15.7I I 


INTERPOLATE TC FIND LEVEL CROSSINGS AT SPECIFIED VALUES OF X 
Xl=a. I X2=0. S QI VI SR=S <1 1 
0X1=0X0S*SQRT(S12) t M21=H2/2*1 t NIN0EX=1 
WRITE (6*50) TITLE 

90 FORMAT (1H, 36X, ’LEVEL CROSSINGS*,/ ,5 X , 8A1Q ,/,/ ,1SX,*0IMENS ION AL 

1N0N-0IMENSICNAL CROSSINGS PER CROSSINGS PER* ,/, 19X, ’LEVEL *, 10X, LEV XG154 
2 ’LEVEL*, 9X* ’UNIT TIME* , 4X,* ZERO CROSS ING* ,/, 21 X,*X* , iOX,’ X/SIGMA XLEVXG155 


LEVXG143 
LEV XG144 
LEVXG145 
LEVXG146 
LEVXG147 
LEVXG148 
LEVXG149 
LEVXG15 0 
LEVXG151 
LEVXG152 
LEVXG153 


* FI5=S(NIN0EX*2» 
94,96,97 


3’,/) 

00 105 1=1 , NT A0 

91 IF (X(NINOEX)-Xl) 92,99,93 

92 NINCEX=NI AO EX’l $ IF CNINDEX-M21) 91,91,150 

93 NINCEX=NINOEX-i 
H=(X1-X (NINCEX) l/DXtl) 

FI3=S (NINCEX) J FI4=S (NIN0EXH) 

FI6=S (NINCEX+3) « IF (NINOEX-2) 

94 IF (NINOEX-1) 150,95,96 

95 FI1=FI5 t FI2=FI4 * GO TO 98 

96 FI1=FI3 t FI2=S ( 1) S GO TO 98 

97 FI1=S (NINCEX-2) t FI 2=S ( N INOE X-il 

98 Fl=-FIi*H*(F**2-l. )* (H-2.) *(H-3.)/120.«-FI2*H*CH-i.) *(H**2-4.) * 
l(H-3.)/24.-FI3*(H**2-l.l*(H**2-4.1*(H-3.)/12.*-FI4*H*(H4l. )* (H**2 
2-4.)*(H-3.l/12.-FI5*H*(H”2-l.l’<H*2.)*(H-3.)/24.«-FI6*H*(H**2-4.» 
3*(H” 2-1. 1/120. 

GO TO 100 

99 Fl=S(NIAOEXI 
100 F2=F1/0IVIS« 

WRITE (6,120) X1,X2,F1,F2 

IF (PKCH ) WRITE (7,121) X2,F2,F1 
IF (F2.LE.1.E-1C) GO TO 140 
X1=X1*0X1 
1C 5 X2= X2*0X0S 

120 FORMAT (1H , 15 X,E10 . 3 , 5 X, E10 .3 , 6X, E10 .3 , 5X , E10 . 3) 

121 FORMAT (3E20.10) 

140 CONTINUE 

150 STOP S END 


LEV XG15 6 
LEV XG 15 7 
LEV XG15 8 
LEV XG159 
LEV XG 160 
LEVXG16 1 
LEVXG162 
LEVXG163 
LEV XG164 
LEV XG16 5 
LEVXG166 
LEVXG167 
LEV XG16S 
LEVXG169 
LEVXG17 0 
LEVXG17 1 
LEV XG172 
LEVXG173 
LEV XG174 
LEVXG17 5 
LEVXG176 
LEVXG177 
LEV XG178 
LEVXG179 
LEVXG180 
LEVXG18 1 
LEV XG182 
LEVXG183 


PROGRAM POI ST (INPUT, OUTPUT, PUNCH, TAPE 5= INPUT ,TAPE6=0UTPUT , T APE7= 
1PUNCH) 

A PROGRAM TC GENERATE PROBABILITY DISTRIBUTIONS FOR THE NON-GAUSSIAN 
MODEL OR THE RESPONSE OF A LINEAR SYSTEM TO THE MOOEL. 

INPUT DATA! 

TITLE(I) ,1=1,9 (3 A10 ) OESCRIPTIVE TITLE TO ACCOMPANY OUTPUT 

SR 2 (E20.10) SYSTEM RESPONSE VARIANCE FOR UNIT VARIANCE INPUT 

SR2= 1.0 FOR TURBULENCE MOOEL DISTRIBUTION CALCULATIONS 
NEV (12) NUMBER OF NCN-GAUSSIAN EIGENVALUES TO BE USEO ULE.20) 
NEV=1 FOR TURBULENCE MODEL DISTRIBUTION CALCULATIONS 
EV ( I) ,1=1 ,N£V (£20.10 ) NON-GAUSSIAN EIGENVALUES FOR RESPONSE TO 


PDIST001 
POISTOO Z 
POISTOO 3 
PDIST004 
PDIST005 
POISTOO 6 
PDISTOO 7 
POISTOO 8 
POISTOO 9 
PDISTiil 0 
POISTOll 
PDIST012 
P0ISTC13 
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UNIT VARIANCE MOOIFIEO BESSEL FUNCTION INPUT. £V< 11=1. FOR 
TURBULENCE MODEL DISTRIBUTION CALCULATIONS. 

R IF10.5) SIGMA RATIO OF THE TURBULENCE MODEL (R.GE.O, R= 0 

FOR GAUSSIAN MODEL, R=INF FOR MODIFIED BESSEL FUNCTION MODEL, 
IN ORDER TO RETAIN COMPUTATIONAL ACCURACY R SHOULD BE LESS 
THAN 2) 

IF THE SUM OF THE NON-GAUSSIAN EIGENVALUES SQUARED IS FOUND TO BE 
MORE THAN 5 PERCENT GREATER THAN THE SYSTEM RESPONSE VARIANCE, SR2, 
EXECUTION IS ENDED. 

IF THE SUM IS FCUNO TO BE LESS THAN THE RESPONSE VARIANCE, AN 
INDEPENDENT GAUSSIAN PROCESS IS INTRODUCED TO CORRECT THE DEFICIT. 

PROGRAM PRINTS THE RESPONSE PROBABILITY DENSITY FUNCTION IN BOTH 
NORMALIZED AND LNNORMALIZED FORM IN INCREMENTS OF DX»SR2 FROM ZERO 
TO 203*CX*SR2. OX IS GIVEN IN DATA STATEMENT BELOW • 

RESULTS ARE PUNCHED ON CARDS IF LOGICAL PARAMETER PNCH IS SET TRUE. 


COMMON / / S(126I,INV(128),P0(1Q26) 

DIMENSION MC3I .PHH1026) 

OIMENSICN TITLE (81 ,EV 120 I ,EV2 <20 1 
EQUIVALENCE (PO ( 1) ,PHI ( II I 
LOGICAL PNCH 

RESULTS ARE PUNCHED ON CAROS IF PNCH IS TRUE 
DATA PNCH/. F./ 

DATA PI2 2/ 35.478417604/ 

DATA M.IFS/S, 0,0,1/ 

MINIMUM VALUE OF M(l) FOR OX OF .05 AND XMAX OF 10. IS 9 (512> 

DATA OX/. 05/ 

DX*SR2 IS THE INCREMENT OF EVALUATION 

DATA C1,C2,C3/7.638888B889E-G3,-6.4583333333E-02,5.5694444444E-01/POIST045 

Cl ,C2,C3 ARE CONSTANTS USED IN NUMERICAL INTEGRATION OF PROB. DENSITY POIST046 

PDIST047 


PDIST014 
PDIST015 
PDIST016 
PDIST017 
PDISTOl 8 
PDIST019 
PDIST020 
PDIST02 1 
PDIST022 
POIST023 
POIST024 
POIST025 
PDIST026 
PDIST02 7 
POIST02 8 
PDIST02 9 
PDIST030 
POIST031 
POIST032 
POIST033 
PDIST034 
PDIST035 
PDIST036 
PDIST037 
POIST038 
PDIST039 
PDIST040 
PDIST041 
POIST042 
PDIST043 
POIST044 


READ INPUT OATA 

15 READ C5.ll TITLE, SR2.NEV 
IF CEOF.5I 400,16 

16 READ 15,21 <E V ( II , 1=1, NE VI 
READ 15,31 R 

1 FORMAT (SAID,/, £20.10,/, 121 

2 FORMAT CE 20 .101 

3 FORMAT (F 10.51 


POIST048 
PDIST049 
PDIST050 
POIST051 
POIST052 
PDIST053 
PDIST054 
PDIST055 
PDIST056 

WRITE INPUT OATA POIST057 

WRITE 16,111 TITLE, SR2.NEV, CEVCII ,1=1, NEV1 PDIST058 

WRITE 16,12) R POISTC59 

11 FORMAT (lHl,5X,8A10,/,/,6X, ’VARIANCE =*»F10 .5,/ ,6X, ’NUMBER OF NON-POIST06G 

1GAUSSIAN EIGENVALUES =*, 12 ,/, 6X, ’EIGENVALUES ARE*’,/, (12X,E15.8I) P0ISTC61 


12 FORMAT C1H0.5X, ’SIGMA RATIO OF TURBULENCE MODEL =*,F1Q.5> 

COPY EIGENVALUES TO WORKING ARRAY, CHECK SUM OF SQUARES 
SE2=0. 

DO 20 1=1, NEV 
EV2II)=EV(I)”2 
20 SE2=SF2*EV2CI) 

IF ISE2.LE.SR2I GO TO 100 
IF <SE2.LT.SR2*1.051 GO TO 90 

SUM OF SQUARES IS TOO LARGE 
WRITE (6,30) SR2.SE2 
30 FORMAT ClhO,5X,* ERROR IN OATA, SUM OF SCUARED EVCII MORE THANPDIST07 4 

1 5 PEPCENT GREATER THAN SR2* ,/ ,6X ,*SR2 =*,E12.5,/ ,6X ,*SUM OF E V Cl) PDIST07 5 

2 SQUARED =*,E12.5I PDIST076 


PDIST06 2 
PDIST063 
PDIST064 
POISTC65 
PDIST066 
PDIST067 
PDIST06 8 
PDIST069 
PDIST070 
PDISTV71 
PDIST072 
PDIST073 
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GO TO 15 PDIST077 

POIST078 

SUM OF SQUARED EIGENVALUES EXCEEOS SYSTEM VARIANCE BY LESS THAN 5 PCNTPDIST079 
9C SE2=SE2/SR2 
00 52 1=1, NEV 
£V2(I)=EV2(I)/SE2 
92 EV(I)=SQRT(EV2(I)) 

WRITE (6, 94) SE2,f£V(I) * EV2 ( I) * 1=1* NE V) 

9 4 FORMAT (1H0,5X,*SUH OF EIGENVALUES SQUARED EXCEEDS VARIANCE 

1 ACTOR OF*, F6. 5, /,6X, ’EIGENVALUES HILL 8E SCALED TO GIVE CORRECT VAPOIST086 
2RI A NCE* ,/, 6X,’ SCALED EIGENVALUES AND SQUARED EIGENVALUES ARE*,/, PDIST087 
3(6X,2E15.7)I 
SE2=SR2 


PDIST080 
P0ISTG81 
PDIST082 
PDIST083 
PDIST084 
BY A FPDIST085 


SCALE GAUSSIAN AND NON-GAUSSIAN VARIANCES ACCORDING TO SIGMA RATIO 
OF TURBULENCE MODEL 
100 RC=R”2/(1.»R”2) 

SES2=SE2*RC t SE2G= (SR2- SE2) *RC 
EVG2=SR2/ Ci.*R”2)’S£2G 

EVG2 IS THE VARIANCE OF THE GAUSSIAN PORTION OF THE SYSTEM RESPONSE 
INCLUDING CORRECTION FOR NEGLECTEO NON-GAUSSIAN EIGENVALUES 


PDIST088 

P0IST089 

POIST090 

P0ISTU91 

PDIST092 

PDIST093 

PDIST094 

PDIST095 

PDIST096 

POIST097 

PDIST098 

PDIST099 

POISTIOO 

POIST101 


SC=i./(EVG2*SES2) * SE=SES2*SC * SG=EVG2*SC 
HRITE (6,130) S£2,SR2,SES2,EVG2,S£,SG 
130 FORMAT (1F0,5X,*SUM OF EIGENVALUES SQUARED =*,E15.7,/,/,6X, 

1’FOR VARIANCE OF* ,E15.7 ,/ , 6X,*NON-GAUSSIAN VARIANCE =*,E15 .7,/ ,6X, POISTlO 2 
2*GAUSSIAN VARIANCE INCLUDING CORRECTION FOR*,/,6X, ’NEGLECTED ElGENPDI ST10 3 
3 VALLES =* , £15.7, /,/,6X,* FOR TOTAL VARIANCE OF UNITY*, /,6X,*NON-GAUPDIST104 
4SSIAN VARIANCE =♦ , E15 . 7 ,/, 6 X,* GAUSSIA N VARIANCE INCLUDING CORRECTIPOISTlO S 
EON FQP*,/ ,6X, ’NEGLECTEO EIGENVALUES =*,E15.7» PDIST106 

SC=SC*RC PDIST107 

00 135 1=1, NEV POISTlO 8 

135 EV2*H=EV2(I)*SC POIST109 

HRITE (6,137) (EV2(I) ,I=1,NEV) PDIST110 

137 FORMAT (1H0,5X, ’SQUARED EIGENVALUES SCALED TC GIVE CORRECT N0N-GAUPDIST11 1 


1SSIAN*,/,6X, ’CONTRIBUTION TO UNIT VARIANCE**,/, (6X,E15. 7)) 

GENERATE RESPONSE CHARACTERISTIC FUNCTION 

EVG2=SG/2. 1 F=0. t DF= W0X/2.”M(1» * NPTS=2” (M( 1) *1) 

00 150 1=1 ,NPTS ,2 
F2=PI22*F”2 t CFR=1, 

00 140 J=1 , NEV 
140 CFR^CFR/ (l.*EV2(JI*F2) 

CFR=SQRT(CFR) « CFR=CFR*EXP(-EVG2*F2) 

PHHI)=CFR * PHI (I’l ) = 0» 

150 F=F»OF 

TRANSFORM CHARACTERISTIC FUNCTION 

CALL FFTRS(PHI,0F,0X,H,INV,S,IFS,IFERI 
IFS = 2 

IF (IFEK.EQ.O) GO TO 210 
WRITE (6,2001 IFER * STOP 

200 FORMAT (1H0 ,* ERROR IN FFT, ERROR FLAG =*, 12, /,5X, ’RESULTS INVAPOIST128 

1LID FOR THIS CASE*) PDIST129 

PPIST130 

INTERPOLATE DENSITY FUNCTION TO OBTAIN FINAL RESULTS PDIST131 

210 IF (PNCH) HRITE (7,219) TITLE P0IST132 

219 FORMAT (8A10) PDIST133 

WRITE (6 , <2C) TITLE PDIST134 

220 FORMAT ( 1H1 , 5X, 6A10I P0IST135 

HRITE (6,221) PDIST136 

221 FORMAT (1H0,5X, ’NORMALIZED’, 4X,’ST0IZE0*,4X, ’DISTRIBUTION*, 5X, PDIST137 

1*UNN0RMALIZE0’,3X,’N0NST0IZ£D*,/,7X,* VARIABLE* , 3 X, ’PROS A3 ILITY*, P0IST138 

24X,»FUNCTI0N*,9X,*VARIABLE*,5X,*PR0BABILITY*,/,7X,*X/SIGHA X*, P0IST139 


PDIST112 
PDIST113 
P0IST114 
P0IST115 
P0IST116 
PDIST117 
PDIST118 
POISTll 9 
PDIST120 
P0IST121 
PDIST122 
PDIST 12 3 
POIST12 4 
P0IST125 
PDIST126 
P0IST127 
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34X,*0ENSITY*,27X,*X*, IPX,* DENSITY*,/) 

DX1=DX*SR2 t CO- *5 S X=0. t X1=0 . 

LINCNT=0 S N=INT(10./DX+.99)H t IF (N.GT.NPTS/4) N=NPTS/4 
00 300 1*1 pH 

J=2*I-1 * UPD=P0(J)/SR2 

WRITE (6,222) X ,P0 t J) ,C0 ,X1 ,UPD 

222 FORMAT (1H ,7X , F6. 3»4X,£10 . 3,3X,E12.5 ,6X,E10 .3, 4X.E10.3I 
IF (PNCH) WRITE (7,223) X,PO( J) pCO, XI, UPD 

223 FORMAT (5E16.8) 

LINCNT=LIKCKT*1 

C LISTING PPOCUCEC AT 51 LINES PER PAGE 

IF (LINCNT.LT.51) GO TO 290 $ IF (I.EQ.N) GO TO 15 

WRITE (6,220) TITLE 
, WRITE (6,221) 

WRITE (6,222) X ,POCJ) ,CD,Xi f UPO 
LINCNT=1 

290 IF (1-2) 291,292,293 

291 C0=C0*(C1*PC(J*4)*C2*P0(JH2))*0X t GO TO 294 

292 C0=C0*(C1*PC<J> *C2*PD(J-2) )*DX S GO TO 294 

293 CD=C0+(C1*PC(J-4)*C2*P0(J-2)>*0X 

294 C0=C0MCi*PC(JH6)*C2*PD( J*4> +C3* (PD(J> *PO ( J*2> ))*DX 
X=X*OX 

300 X1=>1*0X1 
GO TO 15 

400 STOP S ENO 


PDIST140 
P0IST141 
P0IST142 
P0IST143 
POIST144 
PDIST145 
P0IST146 
PDIST147 
POIST14 0 
PDIST149 
POIST15 0 
POIST151 
P0IST152 
P0IST153 
P0IST154 
P0IST155 
PDIST156 
P0IST157 
PDIST150 
P0IST159 
PDIST160 
POIST161 
P0IST162 
PDIST163 
P0IST164 


PROGRAM RLE WX( INPUT, OUTPUT, PUNCH, TAPE5=INPUT,TAPE6=0UTPUT,TAPE7= 
1PUNCH) 


RLE XX 001 
RLE VX002 
RLEVXOO 3 

PROGRAM TO COMPUTE LEVEL CROSSINGS/UNIT TIME OF LINEAR SYSTEM RESPONSERLE VXOO 4 
TO NCN-GAUSSIAN MODEL. CROSSINGS/DISTANCE CAN BE 08TAINEO BY 0 IVISIONRLE VXOO 5 
BY FEAN TRUE AIRSPEED. RLEVX006 

RLE VXOO 7 
RLEVXOO 0 
RLEVXOO 9 
RLEVX01 0 
RLE VX Oil 
RLE VX01 2 
RLEVXG13 


INPUT OATA 

TITLE (SAID ) DESCRIPTIVE TITLE TO ACCOMPANY OUTPUT 
NPT (12) NUMBER OF ABCISSAE POINTS AT WHICH EIGENFUNCTIONS ARE 
TABULATED 

NR1 (ID NUMBER OF EIGENSOLUTICNS DEFINING FIRST VARIABLE 
E(I> , (X(J) ,EFP(J,I) ,EFG(J, I) , J=1,NPT) (45X, E20.ll ,/, (3E25.14X 


EIGENVALUE, ABCISSAE POINTS, P EIGENFUNCTION, AND 0 EIGENFUNCTION RLEVX014 


SI 2 
NR 2 


RESPECTIVELY AS PUNCHED BY GENERATING PROGRAM. REPEATED FOR 
EACH OF THE NR1 EIGENSOLUTIONS. (1=1, NR1) 

(F10.5) TCTAL VARIANCE OF FIRST VARIABLE 
(ID NUMBER OF EIGENSOLUTIONS DEFINING SECOND VARIABLE 


E(I) , (X(J) ,EFP(J,I) , EFQ(J,I) , J=1 ,NPT ) (45X, E20.ll) ,/, (3E25.14) ) 


RLE VX01 5 
RLEVX016 
RLE VX 01 7 
RLE VX01 0 
RLEVX01 9 


EIGENVALUE, ABCISSAE POINTS, F EIGENFUNCTION, AND Q EIGENFUNCTION RLE VX 020 


RESPECTIVELY AS PUNCHED BY GENERATING PROGRAM. REPEATEO FOR 
EACH OF THE NR2 EIGENSOLUTIONS (I=1,NR2I 
S22 (F10.5) TCTAL VARIANCE OF SECOND VARIABLE 

R (F10.5) SIGH A RATIO OF TURBULENCE MODEL 

NRDNR2 MUST BE .LE.8, OTHERWISE RED I MENS I OWING IS REQUIREO. 

RESULTS ARE PUNCHED ON CARDS IF LOGICAL VARIABLE PNCH IS SET TRUE. 

COMMON /ARRAYS/ E ( 8) ,EFP (45, 8) ,EFQ (45 , 8) ,X A (45 ) ,G1(45 ) ,G2 (45) , 
1NPT ,NPOLY,CO£FA (8) 

COMMON /CCR/ C1(8,8),C2(8,8),C3C8,8),C4(8,8), NN,ISIZE,OET A, OETB, 
1C (320 ) 

OIHENSICN X (3192) , S(1024> , INV 41024) ,M (3 ) , OF (2) , DX( 2) , A164, 64) , 
1TITLE48) 


RLE VX021 
RLEVX022 
RLEVX023 
RLE VX 02 4 
RLE VX025 
RLEVX026 
RLEVX027 
RLE VX 02 8 
RLEVX029 
RLE VX030 
RLEVX03 1 
RLE VX 03 2 
RLE VX033 
RLE VX034 


nfl oono n o 
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COMPLEX A jSUH S LOGICAL PNCH 
EQUIVALENCE {X ( II , E ( II , A ( 1 , 111 
PNCH SET .F. SUPPRESSES PUNCHED OUTPUT 
OATA PNCH/.F./ 

IFS ANO M ARE VARIABLES USEO BY SUBROUTINE FFT 
OATA IFS, M/1,6,6,0/ 

OATA THCPI2/19. 739208802/ 

Oil ,C12 ,C13 ARE CONSTANTS USEO IN NUMERICAL INTEGRATION OF JOINT 
PROBABILITY DENSITY FUNCTION 

OATA Cll,C12,C13/7.6388S88889£-03,-6.4583333333E-a2,5.5694444444E- 
131/ 

DXOS IS TABULATION INCREMENT (IN STD. DEVIATIONS OF THE RESPONSE* 

NT AB IS NUMBER CF TABULATED VALUES TO BE COMPUTEO 
OATA DXOS, NT A3/. 2, 41/ 

ISIZE IS DIMENSION CF MATRICIES USEO BY INVERSION ROUTINE INVR 
OATA ISIZE/ 8/ 


RE AO INPUT OATA 

1 FORMAT (12,/, ID 

2 FORMAT (45X, E20.ll ,/, (3E25.14)) 

3 FORMAT (E20.11,/, III 

4 FORMAT <E2Q.11,/,F10.5> 

5 FORMAT (SA10I 
READ (5,5) TITLE 
READ (5,1) KPT , NR1 

IF (NR1.LE.0) GO TO 7 
00 6 1=1, NR1 

6 READ (5,2) E (I) , (XA( J) ,EFP(J,I) ,EFQ(J,I) ,J=1,NPT) 

7 READ (5,3) S12,NR2 

J=NR1*1 * NN=NR1«-NR2 S IF (NR2.LE.D) GO TO 9 

DO 8 I=J,NN 

S READ (5,2) E(I) , (XA(J) ,£FP(J, I), EFQCJ, I), J=1,NPT> 
9 READ (5,4) S22 ,R 


SCALE EIGENVALUES AND COMPUTE GAUSSIAN VARIANCES 

CALL SCALE(E»NR1, NR2,S12,S22,S1G2,S2G2,R, TITLE) 

GENERATE COVARIANCE MATRICIES 
IF (NN.LE.O) GO TO 57 
00 20 1=1, NN 

cki,i)=i. t c2 ( i, d=i. s n=m 

DO 20 J=I1 , NN 

IF ( (I-NR1 J* (J-NR1) ) 10,11,12 

10 CALL INRP0T(C1(I,J) ,I,J,1) I Cl ( J,I ) =C1 ( I, J) 

CALL INRPOT (C2(I,J) ,I,J,-1I t C2 ( J, I) =C2 ( I, J) 

GO TO 20 

11 IF (I.EG.KR1) GO TO 10 

12 ClfJ,I)=0. $ ClfI,J>=0. * C2 ( J, II =0 . S CZ ( I, J) = 0. 

20 CONTINUE 

WRITE (6,21) TITLE 

21 FORMAT (1H1,5X,*C0VARIAKCE MATRIX- FOR P VARI ABLES* ,/ , 6X,8 A10I 
DO 25 1 = 1, NK 

25 WRITE (6,30) (Cl ( I , J) , J=l, NN) 

30 FORMAT (1 HO , 5X , 10 Fll , 6) 

WRITE (6,31) TITLE 

31 FORMAT (1HO»5X,*CO VARIANCE MATRIX FOR 0 VARIABLES*, /,6X, 8 A10) 
00 35 1 = 1, NN 

35 WRITE (6,30) ( C2 (I » J) , J=l» NN) 

GENERATE FUKCTICNAL DEPENDENCE MATRICIES 

36 IF (NR1.LE.0) GO TO 51 
1=1 

WRITE (6,40) TITLE, I 


RLE VX 03 5 
RLEVX036 
RLE VX03 7 
RLE VX03 8 
RLE VX 03 9 
RLEVX040 
RLE VXc41 
RLE VX042 
RLE VX C43 
•RLEVX044 
RLE VX045 
RLEVX046 
RLE VX 047 
RLE VX04 8 
RLEVX049 
RLEVX050 
RLEVX051 
RLE VX052 
RLE VX053 
RLEVX054 
RLEVX055 
RLE VX056 
RLEVX057 
RLE VX 05 8 
RLEVXC59 
RLE VX060 
RLE VXo&l 
RLE VX 06 2 
RLE VX06 3 
RLEVX064 
RLE VX065 
RLE VXC66 
RLE VX067 
RLEVX068 
RLE VX06 9 
RLE VXC70 
RLE VX371 
RLE VX072 
RLEVX07 3 
RLEVX074 
RLE VX07 5 
RLE VX076 
RLE VX077 
RLE VX07 8 
RLE VX07 9 
RLE VX080 
RLE VXU81 
RLE VX082 
RLEVX083 
RLE VX084 
RLE VXO 85 
RLEVX086 
RLEVX087 
RLE VX 088 
RLEVX089 
RLE VX090 
RLEVX091 
RLE VX 092 
RLE VX093 
RLE VX094 
RLE VX095 
RLE VX096 
RLEVX097 
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*0 FORMAT <1H0,5X, ’FUNCTIONAL DEPENDENCE MATRIX*, /, 6X,8A10,/ ,6X,*VARIRLEVXQ9« 


1 ABLE NO.*, 121 
00 50 I-l.NRl 

C3 ( I * I) =E II) t C4(I,I)=0. t Ii=IH 
DO 45 J=I1, NN 

C3(I,J)=Q. t C3 < J, I)=fl« S C4 Cl, J)=0 ■ S C4(J,I>=0. 
45 CONTINUE 

50 WRITE (6,30) (C3(I,J) ,J=i,NRl) 

51 IF CNP2.LE.C) GO TO 56 

1=2 * M1=M?1*1 

WRITE (6,40) TITLE, I 
DO 55 I=H1,NN 

C4(I,I) = ECI) * I1=I*-1 


C3 ( J, I)=0. S C4 (I,J)=0. S C4 (J, I) = 0. 


RLEVX099 
RLEVX100 
RLEVX101 
RLE VX10 2 
RLE VX 10 3 
RLE VX10 4 
RLE VX10 5 
RLE VX10 6 
RLEVX10 7 
RLEVX10 S 
RLE VX1Q9 
RLEVX11 0 
RLE VX111 
RLE VX 11 2 
RLEVX11 3 
RLE VX 11 4 
RLEVX115 
RLE VX116 
RLE VX117 
RLE VX11 8 
RLE VX 11 9 
RLE VX12 0 


C3(I,I)=0. t 
00 53 J= 1 1 , 0 N 
C3 (I ,J)=0 • * 

53 CONTINUE 

55 WRITE (6,30) (C4(I,J),J=M1,NN) 

IF (NR1.LE.C) GO TO 56 $ ERRD=0. 

00 65 1=1, NF1 
00 65 J=N1,NN 

65 ERR0=ERR0*C1(I, J)*C2(I, J)*C3(I, I)*C4( J, J) 

ERRC=ERR0/SCRT(S12*S22) 

WRITE (6,66) ERRO 

66 FORMAT ( 160 ,5X ,*CORR£L AT ION COEFFICIENT OF RESPONSE AND ITS FIRST RLEVX121 

10ERIVATIVE =*,E10.3,/,6X,*THIS COEFFICIENT SHOULD BE MUCH LESS THARLE VX122 
2 N 1.0*) RLE VX 123 

RLEVX124 

GENERATE CHARACTERISTIC FUNCTION RLEVX125 

56 CALL INVRS(ANS,F1,F2) RLE VX12 6 

WRITE (6,54) OETA.OETB RLE VX 12 7 

54 FORMAT (1H3 ,5X, ’DETERMINANTS OF COVARIANCE MATRICIES* ,/,6X,*0ETA = RLEVX128 

1*,E12.5,/,6X,*0£TB =*,£12.5) RLEVX129 

57 0X(1)=.3*SQFT(S12) t 0 X( 2) = ,3*SQRT(S22> RLEVX130 

M1=2**M(1> t M2=2**M (21 RLE VX131 

OF ( 1) — 1 • /C X (1) /Ml t 0F(2)=1./0X(2)/H2 RLE VX132 

WRITE (6,102) OX, OF RLE VX133 

102 FORMAT (1H0 ,5X , *INCREME NTS I* ,✓ ,6X ,*0X (1) =* , E14 .7 , 5X , *0X( 2 ) =♦, RLEVX134 

1E14.7,/,6X,*0F(1) =*,E14.7,5X,*0F(2) =*,E14.7) RLE VX13 5 

OFOF=OF <1)*CF(2) RLEVX136 

S 1G2=~S 1G2*T W0PI2 S S2G2=-S2G2*TW0PI2 RLEVX137 

A(1,1)=CMPL>(1.,0.) S F1=0F ( 1 ) t F2=B. RLE VX13 8 

F11=FL0AT (1*M1)*0F<1) RLEVX13 9 

00 20* 1=2,61 RLE VX140 

CALL CF2 ( ANS,F1 ,F2 ) $ ANS=ANS*EXP(S1G2*F1**2) RLE VX141 

CALL CF2( ANS1,F11,F2) S ANS=ANS*ANS1*EXP (S1G2 *F1 1**21 RLEVX142 

A(I,1)=CMPLX(ANS,0.) t F11=F11*0F(1) RLE VX143 

200 F 1= Fl’OF 1 1 ) RLE VX144 

F 1=0.0 * F2=0F (2) t F22=FL0AT(1-M2)*0F(2» RLE VX 145 

00 300 J=2,«2 RLE VX146 

CALL CF2(ANS,F1,F2) S ANS=ANS*EXP(S2G2*F2**2) RLE VX 14 7 

CALL CF2(ANS1,F1,F22) « ANS=ANS+ANS l’EXP (S2G2*F22**2» RLEVX148 

A(1,J) = CMFLX(ANS,0.) t F22=F22*0F(2) RLEVX14 9 

300 F2=F2*OF(2) RLE VX15 0 

F11=FLOAT(H1)*OF(1) t F1=0. * M22=N2/2+l RLE VX 151 

00 410 1=2, Kl RLE VX152 

F1=F1*DF ( 1 ) I F11=F11-0F«1) RLEVX153 

F2=0. S F22=FLOAT(M2)*OF(2) RLEVX154 

00 40P J=2, M2H RLEVX155 

F2=-F2+0F(2) t CALL CF2 ( ANS ,F1, F2) RLEVX156 

ANS=ANS*EXP(S1G2*F1**2»S2G2*F2**2I RLE VX15 7 

F2=-F2 t CALL CF2 ( ANS 1 ,F11 , F2) RLE VX158 

ANS= ANS ♦ ANSI *EXF (S1G2*F1 1**2 + S2G2*F2**2) RLE VX15 9 

F22=-F22*CF(2) S CALL CF2 ( ANSI ,F1,F22» RLE VX160 


I 
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ANS=ANS*ANS1*EXP(S1G2*F1**2*S2G2*F22**2) 
F22=-F22 1 CALL CF2 ( ANSI , FU, F22) 

ANS=ANS+ANS1*£XP(S1G2*F11**2*S2G2*F22**2I 
A(I,J>=CNPLX(ANS,0.) 

40 0 A (H1+2-I » M2*2“ J) = CHPLX ( ANS * 0 .1 
410 CONTINUE 

WRITE (6,61) (A(J,1),J=1,M1) 

WRITE (6,621 (A(1,J),J=1,M2) 

WRITE (6,62) ( A(J, J) , J=1,H2> 


RLE VX161 
RLEVX162 
RLE VX163 
RLE VX16 4 
RLE VX165 
RLEVX166 
RLEVX167 
RLE VX168 
RLE VX16 9 


61 FORMAT (1H1,5X,*FIRST ROW, FIRST COLUMN, AND DIAGONAL OF JOINT CHARLEVX170 


1RICTERISTIC FUNCTION*,/, (5X,8E10.3)» 

62 FORMAT (1H ,/ , ( 5 X , 8E10 . 3 ) I 

FOURIER TRANSFORM TO OBTAIN PROBABILITY DENSITY 
00 71 J=l, 8192,2 

71 X(J)=X(J)*OFOF 

CALL PFTCX,M,INV,S,IFS,IFER> % IF (IFER.EQ.O) GO TO 73 
WRITE (6,72) IFER 

72 FORMAT (IhO ,5X, ’FATAL ERROR IN FFTRS2 , IFER =*,I5* 

STOP 


INTEGRATE TC OBTAIN LEVEL CROSSINGS 
73 C1X=C11*DX( 2) S C2X=C12*DX(2) 
WRITE (6,74) ( A ( J , 1) , J=l, Ml) 
WRITE (6,62) ( All, J) , J*1,M2) 
WRITE (6,62) (A (J, J) , J=1,M2) 


$ C3X=C13*0X (2) 


RLEVX171 
RLE VX17 2 
RLEVX173 
RLE VX17 4 
RLEVX175 
RLEVX176 
RLEVX177 
RLEVX178 
RLE VX17 9 
RLEVX180 
RLE VX181 
RLE VX132 
RLE VX183 
RLE VX184 
RLE VX185 
RLE VX13 6 


74 FORMAT (1H ,5X ,* FI RST ROW, FIRST COLUHN, ANO DIAGONAL OF JOINT PRORLE VX187 


13A9ILITY CENSITY FUNCT ION* ,/ , (5X, 3E10 . 3) ) 
X2=0. * M21=M2/2*1 I Hll=Ml/2*3 

00 80 J=1,H21 
DO 75 1=1, Mil 
75 A(I,J)=fl(I,J)*X2 
8C X2=X2*DX(2) J M2i=M2/2-2 
00 66 1=1, Mil 


RLE VX18 8 
RLE VX189 
RLE VX190 
RLEVX191 
RLEVX192 
RLE VX193 
RLE VX194 


SUM=ClX*(-A(I,3)+A(I,4)-A(I,2)tA(I,5))*C2X*(A(I,l)-A(I,2)+A(I,3)t RLE VX195 


1A(I,4))*C3X*(A(I,1)+2.*A(I,2) +A(I,3)) 
00 85 J=1,M21 


RLE VX196 
RLE VX197 


85 SUH=SUFHC1X*(A(I, J)+A(I, J* 5 ) ) +C2X* ( A( I , J*1 ) * A ( I , J +4) I fC3X*( A (I , J*2RLE VX19 8 


1 ) *■ A (I , J*3 ) ) 
x(I)=float ( i-i)*ox(i) 

86 S ( I ) =RE AL (SUM) 

WRITE (6,67) (X(I) ,S(I) ,1=1, Mil) 

87 FORMAT (1W1,5X,*C0NPUTE0 VALUES OF X AND N ( X) *,/ , (4X, 2E15 .7) ) 


RLE VX199 
RLEVX2Q0 
RLEVX20 1 
RLEVX202 
RLE VX20 3 
RLE VX2Q 4 
RLE VX20 5 
RLE VX20 6 
RLE VX20 7 
RLE VX20 8 
RLEVX20 9 


INTERPOLATE TO FIND LEVEL CROSSINGS AT SPECIFIED VALUES OF X 
X1=0. S X 2=0 • t 01 VISR=S (1) 

0X1=DX0S*SQRT (S12) S M2i=H2/2*l S NIN0EX=1 
WRITE (6,90) TITLE 

90 FORMAT ( 1H1 , 36X , ’LEVEL CROSSINGS*,/ ,5X, 8A10 16X, ’DIME NS ION AL 

1N0N-0IMENSICNAL CROSSINGS PER CROSSINGS PER* ,/, 19X , ’LEVEL* , 1QX, RLE VX210 
2*LEVEL*,9X,*UNIT T IHE* , 4X ,*2ER0 CROSS ING* ,/ , 21 X ,*X* ,1 OX ,* X/SIOMA XRLEVX211 
3*,/l RLE VX21 2 

rfo 105 1 = 1 , NT AB RLE VX213 

91 IF (X(NINOEX)-Xl) 92,99,93 RLE VX214 

92 NINCEX=NINDEX4-1 £ IF (NIN0EX-M21) 91,91,150 RLEVX215 

93 NINCEX=NINDEX-1 S H= ( Xl-X (NINDEX) )/0X (1) RLEVX216 

FI3=S (NINCEX) S FI4=S CNINDEX+1) t FI5=S(NIN0EX«-2) RLEVX217 

FI6=S(NIN0EX*3) l IF (NINDEX-2) 94,96,97 RLE VX21 8 

94 IF (NINDEX-1) 150,95,96 RLE VX21 9 

95 FI1=FI5 t FI2=FI4 * GO TO 98 RLE VX22 0 

96 FI1=FI3 f FI2=S ( 1) S GO TO 98 RLEVX221 

97 FIl=StNINCEX-2) I FI2=S ( NINOEX-1) RLE VX222 

98 Fl=-FIl*H*(H**2-l,)*(H-2,)*(H-3.)/120.*FI2*H*(H-l.)*(H**2-4.)* RLE VX223 
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l(H-3.)/24.-FI3*(H**2-l.) *(H**2-4.l*(H-3.)/12.+FI4*H*{H*l.)* (H**2 
2-4. )*(H-3.)/12.-FI5*H*<H**2-l.)*(HP2.)*(H-3.>/24.*FI6*H*(H**2-4.) 
3*(H**2-1.)7120. 

GO TO 100 
99 F1=S (NINOEX) 

100 F2=F1/0IV1SR 

WRITE (6, 1201 XI, X2» FI, F2 
IF (F1.LE.1.E-11I GO TO 150 
X1=X1+0X1 
105 X2=X2*OXOS 

120 FORMAT (Ilf ,15X,£10.3,5X,£10.3,6X,E1<).3,5X,E10.3> 

150 STOP t END 


RLE VX224 
RLEVX225 
RLE VX22 6 
RLE VX227 
RLE VX22 8 
RLE VX22 9 
RLE VX23Q 
RLEVX231 
RLE VX232 
RLE VX233 
RLE VX234 
RLE VX23 5 


SUBROUTINE SCALE(E,Nl,N2,Si2,S22,SlG2,S2G2,R, TITLE* 

SUBROUTINE TO SCALE EIGENVALUES AND CALCULATE GAUSSIAN VARIANCES 
E = EIGENVALUE ARRAY 

N1 = NO. OF EIGENVALUES DESCRIBING FIRST VARIABLE 

N2 = NO. OF EIGENVALUES OESCRISING SECOND VARIABLE 

SI 2 = VARIANCE CF 1ST VARIA9LE IN RESPONSE TO UNIT VARIANCE INPUT 

S22 = VARIANCE CF 2ND VARIABLE IN RESPONSE TO UNIT VARIANCE INPUT 

S1G2 = GAUSSIAN VARIANCE OF 1ST VARIABLE 

S2G2 = GAUSSIAN VARIANCE OF 2N0 VARIABLE 

DIMENSION E 111 , TITL£(8) 

S=S 12 J N=N1 * N0=1 

DO 100 1=1,2 

SE2=0. S IF (N.GT.NO) GO TO 9 t S2G2=S 
IF (I.EO.l) S1G2=S2G2 * GO TO 60 

9 00 10 J=NC,N 
1C SE2=SE2*E( J)**2 

IF (SE2.LE.SIG0 TO 40 » 

WRITE (6,15) SE2,S,I«N S 


SCALE001 
SCALEOO 2 
SCALEOQ 3 
SCALE004 
SCALEOO 5 
SCALEOQ 6 
SCALEOO 7 
SCALEOO 8 
SCALEOO 9 
SCALE010 
SCALEi.ll 
SCALE012 
SCALEC13 
SCALE014 
SCALE015 
SCALE016 
SCALE01 7 
SCALE01 8 
SCALE019 
SCALE020 
SCALE021 
SCALE022 


IF I SE 2.LE. S* 1. 05) GO TO 30 
STOP 

15 FORMAT (1H0 ,5X, 'FATAL ERROR IN SCALE, SE2 EXCEEOS S BY MORE THAN 5SCALE023 
1 PERCENT*,/, 6X,*SE2 =* ,E15 . 8,/ , 6X, *S =*,E15. 8,/ ,6X,*I =*, 12 ,/,6X ,*SCALE02 4 


t S£2=SQRT (SE2) 


SCALE025 
SCALED 2 6 
SCALE027 
SCALE028 
SCALE029 
SCALE030 
SCALE031 
SCALE032 
SCALE033 
SCALE03 4 
SCALE 03 5 


2N =*,121 

30 SE2=SORT (S/SE2I 
00 35 J= N 0 » N 

35 E ( JI=E ( J) *SE 2 t SE2=S 
40 S2G2 = S-SE2*(R"2>/(1.»R"2) 

IF (I.EO.l) S1G2=S2G2 S SE2= (R**2>/ (1 . + R"2) 

DO 50 J=NO,N 
50 E(JI=E(J) *SE2 
60 NO=Nl+l $ N=N1*N2 

100 S=S22 

IF (N.LE.C) E ( 1 ) =0 . 

WRITE (6,110) TITLE * J=1 I WRITE (6,115) J,S1G2 , (£(I I , 1=1, Nl) SCALE03 6 

110 FORMAT ( 1H1 , 5X ,* RESULTS OF SC ALING* ,/ , 6X , 8 A10 ) SCALE037 

J=2 S WRITE (6,115) J,S2G2, (E ( I) ,I=NO,N) * WRITE (6,120 R SCALE038 
115 FORMAT (1H0.5X, 'VARIABLE NO.*, 12 ,/,6X , 'GAUSSIAN VARIANCE INCLUDINGSCALE039 
1 CORRECT I CN FOR NEGLECTED EIGENVALUES =*, E12. 5 ,/,6X, 'SCALED El GENVSCALE U4 0 
2ALUES*,/, (10X.E12.5)) SCALE04 1 

120 FORMAT ( IPO , 5X, *S IGMA RATIO OF TURBULENCE MODEL =*,F6.3) SCALE042 

SE2=8 • SCALE043 

DO 125 1=1, Nl SCALE044 

125 SE2=SE2'E (I)**2 SCALE045 

S=SE2*S1G2 t 1=1 SCALE046 

WRITE (6,130 I,S12,SE2,S1G2,S SCALE04 7 
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130 FORMAT (1H0*5X** VARIANCE CHECK* VARIABLE NO.** 12 6X, ’CORRECT TOTSCALE04S 
1AL VARIANCE a**E12.5*/,6X,*SUN CF SCALEO EIGENVALUES SQUAREO = *,EiSCALE0.4 9 
22. 5,/, 6X, ’GAUSSIAN VARIANCE =*»E12.5,/,6X,*T0TAL VARIANCE =*,E12.5SCALE050 


31 SCALEG51 

SE2=0. SCALE052 

00 135 I*HO«N SCALE05 3 

135 SE2=SE2’E(I>”2 t S=SE2’S2G2 < 1*2 SCALE054 

WRITE (6*130) 1*S22*SE2*S2G2*S SCALE055 

140 RETURN t (NO SCALE056 



APPENDIX B 


TABULATED FUNCTIONS 

The purpose of this appendix is to present tabulated values of certai 
•esults which were presented in graphic form within the main body of this 
report. Specific results to be presented are: 

Table B1 - standardized probability densities of the non-gaussian 
turbulence model for various values of the probability 
distribution parameter R 

Table B2 - probability distribution functions of the non-gaussian 
turbulence model for various values of the probability 
distribution parameter R 

Table B3 - universal level crossing frequencies of the non-gaussian 
turbulence model longitudinal component for various values 
of the probability distribution parameter R 
Table B4 - universal level crossing frequencies of the non-gaussian 
turbulence model vertical and lateral components for 
various values of the probability distribution parameter/?. 
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Table B1 .--Standardized probability densities of the non-gaussian 
turbulence model for various values of the 
probability distribution parameter B, 

(Graphical presentation of most of those data is given 
in figure 15 on page 61 of this report.) 


p(a:|i?) 

R 


X 

0.0 

0.5 

0.75 

1.0 

1.33 

2.0 


3.989E-01 

4.073E-01 

4. 234E-01 

4.455E-01 

4.792E-01 

5.478E-01 


3.91 0E-01 

3.986E-01 

4. 132E-01 

4.330E-01 

4.623E-01 

5. 182E-01 


3.683E-01 

3.738E-01 

3.843E-01 

3.976E-01 

4,1 56E-01 

4.409E-01 


3.332E-01 

3.359E-01 

3.407E-01 

3.457E-01 

3.496E-01 

3.434E-01 

.8 

2.897E-01 

2.894E-01 

2.884E-01 

2.854E-01 

2.774E-01 

2. 514E-01 

1.0 

2.420E-01 

2.391 E— 01 

2.335E-01 

2. 248E-01 

2.096E-01 

1 . 786E-01 

1.2 

1.942E-01 

1.898E-01 

1.814E-01 

1.699E-01 

1.530E-01 

1.266E-01 

1.4 

1.497E-01 

1.447E-01 

1 . 356E-01 

1.241E-01 

1.093E-01 

9. 100E-02 

1.6 

1.109E-01 

1.063E-01 

9.802E-02 

8.838E-02 

7.748E-02 

6.662E-02 

1.8 

7.895E-02 

7. 527E-02 

6.885E-02 

6.194E-02 

5. 510E-02 

4. 953E-02 

2.0 

5.399E-02 

5.1 53E-02 

4.728E-02 

4. 309E-02 

3.952E-02 

3.724E-02 

2.2 

3. 547E-02 

3.420E-02 

3.195E-02 

2.997E-02 

2.865E-02 

2. 822E-02 

2.4 

2.239E-02 

2.208E-02 

2. 138E-02 

2.094E-02 

2.098E-02 

2.151E-02 

2.6 

1.358E-02 

1 . 392E-02 

1.425E-02 

1 . 474E-02 

1.549E-02 

1 .648E-02 

2.8 

7.915E-03 

8. 603E-03 

9. 511E-03 

1.046E-02 

1 . 150E-02 

1 . 266E-02 

3.0 

4.432E-03 

5.240E-03 

6.373E-03 

7.476E-03 

8. 585E-03 

9.764E-03 

3.2 

2.384E-03 

3. 160E-03 

4.295E-03 

5. 375E-03 

6.432E-03 

7. 548E-03 

3.4 

1.232E-03 

1 .896E-03 

2.91 2E-03 

3.884E-03 

4.834E-03 

5.848E-03 

3.6 

6. 119E-04 

1 . 135E-03 

1 .987E-03 

2.81 7E-03 

3.643E-03 

4.539E-03 

3.8 

2.919E-04 

6.812E-04 

1.362E-03 

2.050E-03 

2.751 E-03 

3.530E-03 

4.0 

1.338E-04 

4. 103E-04 

9.382E-04 

1.495E-03 

2.081 E-03 

2. 749E-03 
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Table B2. — Probability distribution functions of the non-gaussian 
turbulence model for various values of the probability 
distribution parameter R. 

(Graphical presentation of most of these data is given 
in figure 15on page 61 of this report.) 


P[ -ax|i?) f 


X 

0.0 

0.5 

R 

0.75 

1.0 

1.33 

2.0 

0.0 

5.000E-01 

5.000E-01 

5.000E-01 

5. OOOE-Ol 

5. 000E-01 

5. 000E-01 

.2 

4. 207E-01 

4.191 E— 01 

4.160E-01 

4.117E-01 

4.053E-01 

3.924E-01 

.4 

3.446E-01 

3.416E-01 

3.360E-01 

3.284E-01 

3.171E-01 

2.959E-01 

.6 

2. 743E-01 

2.705E-01 

2.633E-01 

2. 538E-01 

2.404E-01 

2.174E-01 

.8 

2.119E-01 

2.078E-01 

2.003E-01 

1.906E-01 

1 .776E-01 

1.582E-01 

1.0 

1.587E-01 

1.550E-01 

1 .481E-01 

1 .396E-01 

1 .291 E 01 

1 . 156E-01 

1.2 

1.151E-01 

1 .121 E— 01 

1.067E-01 

1.003E-01 

9.305E-02 

8. 537E-02 

1.4 

8.076E-02 

7.878E-02 

7.511 E-02 

7. 108E-02 

6.704E-02 

6.384E-02 

1.6 

5.480E-02 

5.380E-02 

5. 189E-02 

5.000E-02 

4.854E-02 

4.823E-02 

1.8 

3. 593E-02 

3. 578E-02 

3.535E-02 

3. 511 E-02 

3.542E-02 

3. 671 E-02 

2.0 

2.275E-02 

2.322E-02 

2.385E-02 

2.472E-02 

2.605E-02 

2.810E-02 

2.2 

1.390E-02 

1.474E-02 

1.602E-02 

1 .750E-02 

1.930E-02 

2.1 60E-02 

2.4 

8.1 98E-03 

9. 188E-03 

1 .075E-02 

1.246E-02 

1.438E-02 

1.666E-02 

2.6 

4.661 E-03 

5 . 643E-03 

7.237E-03 

8.931 E-03 

1.076E-02 

1 . 288E-02 

2.8 

2.555E-03 

3.429E-03 

4.892E-03 

6.436E-03 

8.085E-03 

9.987E-03 

3.0 

1.350E-03 

2.069E-03 

3.324E-03 

4.659E-03 

6.091 E-03 

7.757E-03 

3.2 

6.871 E-04 

1.245E-03 

2.271 E-03 

3. 386E-03 

4. 599E-03 

6.036E-03 

3.4 

3.369E-04 

7.491 E-04 

1 .559E-03 

2.468E-03 

3.480E-03 

4. 704E-03 

3.6 

1.591 E-04 

4.51 7E-04 

1.075E-03 

1.803E-03 

2.638E-03 

3.671E-03 

3.8 

7. 235E-05 

2.735E-04 

7.433E-04 

1.321 E-03 

2.003E-03 

2.868E-03 

4.0 

3. 167E-05 

1.663E-04 

5.1 56E-04 

9.687E-04 

1.523E-03 

2.243E-03 

4.2 

1.335E-05 

1.016E-04 

3. 585E-04 

7.117E-04 

1.159E-03 

1.756E-03 

4.4 

5.41 2E-06 

6.230E-05 

2.498E-04 

5.236E-04 

8.830E-04 

1.376E-03 

4.6 

2.112E-06 

3.840E-05 

1.744E-04 

3.857E-04 

6.735E-04 

1 .079E-03 

4.8 

7.933E-07 

2.370E-05 

1 . 219E-04 

2.844E-04 

5. 141 E-04 

8.472E-04 

5.0 

2.867E-07 

1.470E-05 

8.530E-05 

2.100E-04 

3.928E-04 

6.655E-04 


t 


P{ox) = 1 - P( - cre) 
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Table B3. — Universal level crossing frequencies of the non-gaussian 
turbulence model longitudinal component for various values 
of the probability distribution parameter R. 

(Graphical presentation of these data is given 
in figure 16 on page 74 of this report.) 


R 


X 

0.0 

0.5 

0.75 

1.0 

1.33 

2.0 

0.0 

1.591E-01 

1 . 597E-01 

1 . 606E-01 

1 .618E-01 

1.637E-01 

1 . 674E-01 

.2 

1.506E-01 

1.563E-01 

1.569E-01 

1 . 576E-01 

1 . 587E-01 

1 .603E-01 

.4 

1.469E-01 

1 .468E-01 

1 . 465E-01 

1.459E-01 

1.448E-01 

1 .417E-01 

.6 

1.329E-01 

1.322E-01 

1 .307E-01 

1 . 285E-01 

1.249E-01 

1 . 1 72E-01 

.8 

1.156E-01 

1 . 142E-01 

1.11 6E-01 

1 .081 E— 01 

1 .027E-01 

9.300E-02 

1.0 

9. 653E-02 

9.481 E-02 

9.152E-02 

8. 721 E-02 

8. 126E-02 

7.221E-02 

1.2 

7.747E-02 

7.564E-02 

7.221 E-02 

6.796E-02 

6.262E-02 

5. 595E-02 

1.4 

5.973E-02 

5.809E-02 

5.506E-02 

5 . 1 53E-02 

4.755E-02 

4.355E-02 

1.6 

4.425E-02 

4. 301 E-02 

4.075E-02 

3.831 E-02 

3. 591 E-02 

3.415E-02 

1.8 

3.150E-02 

3.077E-02 

2.944E-02 

2.81 5E-02 

2.71 7E-02 

2.691 E-02 

2.0 

2.154E-02 

2.133E-02 

2.088E-02 

2.057E-02 

2.063E-02 

2.128E-02 

2.2 

1 .41 5E-02 

1.436E-02 

1 .462E-02 

1.503E-02 

1 , 575E-02 

1.687E-02 

2.4 

8.934E-03 

9.432E-03 

1.017E-02 

1 . 102E-02 

1.207E-02 

1 . 339E-02 

2.6 

5.417E-03 

6.063E-03 

7.051 E-03 

8. Ill E-03 

9. 281 E-03 

1.064E-02 

2.8 

3.157E-03 

3.833E-03 

4.896E-03 

5.995E-03 

7. 1 54E-03 

8.465E-03 

3.0 

1 . 768E-03 

2.395E-03 

3.409E-03 

4.446E-03 

5. 524E-03 

6.738E-03 

3.2 

9.508E-04 

1 .484E-03 

2.383E-03 

3. 307E-03 

4.271 E-03 

5. 367E-03 

3.4 

4.916E-04 

9. 164E-04 

1.672E-03 

2.465E-03 

3. 306E-03 

4.276E-03 

3.6 

2.441E-04 

5.654E-04 

1.177E-03 

1 .841 E-03 

2.560E-03 

3.409E-03 

3.8 

1.166E-04 

3.496E-04 

8.310E-04 

1 .376E-03 

1.984E-03 

2.71 8E-03 

4.0 

5.354E-05 

2.168E-04 

5.880E-04 

1.030E-03 

1 .539E-03 

2.1 68E-03 


2.351 E-05 

1.348E-04 

4. 167E-04 

7.714E-04 

1.194E-03 

1 . 730E-03 


1.004E-05 

8.425E-05 

2 . 959E-04 

5.782E-04 

9.265E-04 

1.380E-03 

4.6 

4.090E-06 

5.278E-05 

2. 102E-04 

4.336E-04 

7. 192E-04 

1 . 102E-03 

4.8 

1.580E-06 

3.315E-05 

1.495E-04 

3. 253E-04 

5.585E-04 

8. 793E-04 

5.0 

6.109E-07 

2.089E-05 

1.064E-04 

2.442E-04 

4.338E-04 

7.020E-04 

5.2 

2.206E-07 

1.318E-05 

7. 581 E-05 

1.833E-04 

3.370E-04 

5 605E-04 

5.4 

7.410E-08 

8.328E-06 

5.402E-05 

1 .377E-04 

2.61 9E-04 

4.476E-04 

5.6 

2.668E-08 

5.274E-06 

3. 852E-05 

1.034E-04 

2.035E-04 

3.574E-04 

5.8 

8.484E-09 

3.341 E-06 

2.748E-05 

7.773E-05 

1.582E-04 

2.855E-04 

6.0 

2.424E-09 

2.11 7E-06 

1.960E-05 

5.842E-05 

1 .230E-04 

2.281 E-04 

6.2 

8.545E-1 0 

1.344E-06 

1.399E-05 

4.392E-05 

9. 563E-05 

1.822E-04 

6.4 

2.359E-10 

8.534E-07 

9.990E-06 

3.302E-05 

7.436E-05 

1.456E-04 

6.6 

5.528E-11 

5.419E-07 

7. 1 34E-06 

2.483E-05 

5. 784E-05 

1 . 163E-04 

6.8 

2.059E-1 1 

3.446E-07 

5.096E-06 

1.868E-05 

4.500E-05 

9. 301 E-05 

7.0 

4.792E-12 

2.191E-07 

3 . 641 E-06 

1.405E-05 

3. 502E-05 

7.439E-05 
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Table B4.— Universal level crossing frequencies of the non-gaussian 
turbulence model vertical and lateral components for various values 

of the probability parameter R. 

(Graphical presentation of these data is given in figure 17 
on page 80 of this report.) 


, N v (x\E) 


X 

0.0 

0.5 

1 

0.75 

? 

1.0 

1.33 

2.0 

0.0 

1 . 949E-01 

1.955E-01 

1 . 965E-01 

1 . 979E-01 

2.000E-01 

2.042E-01 

.2 

1 .911 E— 01 

1.914E-01 

1 .920E-01 

1 .928E-01 

1 . 938E-01 

1.954E-01 

.4 

1 . 799E-01 

1.797E-01 

1 . 792E-01 

1.784E-01 

1.768E-01 

1 . 728E-01 

.6 

1 .628E-01 

1.618E-01 

1 . 599E-01 

1 . 571 E— 01 

1 .525E-01 

1 . 429E-01 

.8 

1.415E-01 

1 . 399E-01 

1 .366E-01 

1.321E-01 

1 .254E-01 

1.134E-01 

1.0 

1 . 182E-01 

1.161E-01 

1 . 1 20E-01 

1 . 066E-01 

9. 924E-02 

8.806E-02 

1.2 

9.488E-02 

9. 260E-02 

8.834E-01 

8. 308E-02 

7.647E-02 

6.825E-02 

1.4 

7.316E-02 

7.112E-02 

6.736E-02 

6.299E-02 

5.807E-02 

5.313E-02 

1.6 

5.420E-02 

5. 266E-02 

4.985E-02 

4.682E-02 

4 . 386E-02 

4.1 67E-02 

1.8 

3.857E-02 

3.767E-02 

3.601 E-02 

3.440E-02 

3.318E-02 

3.284E-02 

2.0 

2 . 638E-02 

2.611E-02 

2.554E-02 

2.514E-02 

2.520E-02 

2.598E-02 

2.2 

1.733E-02 

1.758E-02 

1 .788E-02 

1 .838E-02 

1.923E-02 

2.059E-02 

2.4 

1 .094E-02 

1 . 1 55E-02 

1.244E-02 

1 .347E-02 

4.474E-02 

1.635E-02 

2.6 

6.635E-03 

7.421E-03 

8.624E-03 

9.914E-03 

1 . 1 34E-02 

1 .300E-02 

2.8 

3. 866E-03 

4.692E-03 

5.988E-03 

7. 328E-03 

8 . 742E-03 

1.034E-02 

3.0 

2.165E-03 

2.931E-03 

4. 170E-03 

5.435E-03 

6.751 E-03 

8.231 E-03 

3.2 

1 . 164E-03 

1.816E-03 

2.914E-03 

4.043E-03 

5 . 220E-03 

6. 556E-03 

3.4 

6.021E-04 

1 .122E-03 

2.045E-03 

3.014E-03 

4.040E-03 

5 . 225E-03 

3.6 

2.990E-04 

6.920E-04 

1 .439E-03 

2.251E-03 

3 . 1 30E-03 

4. 1 65E-03 

3.8 

1.429E-04 

4. 279E-04 

1.016E-03 

1 . 683E-03 

2.426E-03 

3 . 322E-03 

4.0 

6. 557E-05 

2. 653E-04 

7.1 92E-04 

1 . 259E-03 

1 .881 E-03 

2 . 650E-03 

m 

2.880E-05 

1.650E-04 

5.098E-04 

9.434E-04 

1.459E-03 

2.114E-03 

ESI 

1.229E-05 

1.031E-04 

3. 619E-04 

7.071 E-04 

1 .133E-03 

1 . 687E-03 

4.6 

5.009E-06 

6.460E-05 

2. 572E-04 

5. 303E-04 

8. 794E-04 

1 .347E-03 

4.8 

1.935E-06 

4.057E-05 

1.829E-04 

3. 978E-04 

6.829E-04 

1 .075E-03 

5.0 

7.482E-07 

2. 557E-05 

1 .302E-04 

2. 986E-04 

5.304E-04 

8. 582E-04 

5.2 

2.702E-07 

1.614E-05 

9. 275E-05 

2 . 242E-04 

4. 121 E-04 

6. 852E-04 

5.4 

9.075E-08 

1 .01 9E-05 

6.61 0E-05 

1 . 684E-04 

3.202E-04 

5. 472E-04 

5.6 

3.267E-08 

6.455E-06 

4.71 3E-05 

1 .265E-04 

2.489E-04 

4.370E-04 

5.8 

1 . 039E-08 

4.089E-06 

3.362E-05 

9.508E-05 

1 .935E-04 

3.491 E-04 

6.0 

2.968E-09 

2.591 E-06 

2. 399E-05 

7.146E-05 

1.504E-04 

2.789E-04 

6.2 

1.047E-09 

1 . 645E-06 

1 .712E-05 

5. 373E-05 

1 . 170E-04 

2.228E-04 

6.4 

2.890E-10 

1.044E-06 

1.222E-05 

4.040E-05 

9.095E-05 

1 . 780E-04 

6.6 

6. 774E-1 1 

6.633E-06 

8.729E-06 

3.038E-05 

7.074E-05 

1.423E-04 

6.8 

2. 526E-1 1 

4.218E-07 

6. 236E-06 

2.285E-05 

5 . 504E-05 

1 .137E-04 

7.0 

5.911E-12 

2.682E-07 

4.455E-06 

1.719E-05 

4.283E-05 

9.098E-05 
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